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ABSTRACT 





TLSRE ORR" PERSE ORDERED PRUE ENED St 


WRITE 


B3ie CREE ARVFe ANSE CLE RA “Ur FInefnD READING, “AND ALL 
PRROR DETECTION L 5 oof is NORE CKED BY SOFTWARE ERROR FORCING. 


AFTER A SUCCESSFUL RUN (WITH NO ERRORS) OF PART 2, THE DRIVE 
IS READY FOR PART 3 OF THE ORIVE DIAGNOSTICS. 


GREIL LobtcPHESYS AB PROceEDING THRU OYNANIC TESTING. 7 


TESTS WILL BE KEPT SMALL TO FACILITATE SCOPING L 


BLEAFSRRM CHIR TERT "HOS & PHOT MITHOUT NEED oF 


HHERECAUT IONS REE 
Mes THIS PROGRAM ANYWHE 


RE BUT AT THE END OF A PASS, 


WAY LEAVE THE HEODERS IN THE DISK CARTRIDGE IN AN 


REQUIREMENTS 
HARDWARE 


THE FOLLOWING HARDWARE IS REQUIRED TO RUN THE DISK DIAGNOSTIC: 


POP-11 
te E TELETYPE 
KW1i-L OR. KW11-P CL 





RKO& UNIBUS CON 


OCK 
TROLLER (RK611) 


1 TO 8 RKOGB/RKO7 DRIVES 








NOTES: 1. Me er KW 
| ati “Axa 





4 Bef B RESULT OF F sy D Tag IF 


PRELIMINARY TESTING 3 PROGRAMS 
YRsT RUN SUCCESSFULLY FOCLOWE 


PROGRAM CONSIDERATIONS 


98.5 UR Ke LE, 
eFe" WILL CONFI 

DrAaNDSTOC. PART 1 

IAGNOSTICS (ALL PARTS) SHO 

BY THE RKOG DRIVE DIAGNOS 


Ge At THE bh TERING 
THIS. 


Tre- PART 1. 


SEQ 0003 


3 
$ 
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3.1 PDP-11 FAMILY CCMPATIBILITY 
THI we USED BY THE PDP-11704,05,10,20, 
3H,35,40,5,50, 8 70. 


ay IS COMPAT e WITH THE L TRUCTION SET AND 


AE ee ete DIAGNOSTIC "CONTROLLER FOR THE LSI-11 D CAN TEST 
DESI BE DIAGNOSTICALLY COMPATABLE WITH Kb11. 


3.2 XXDP 
ree oo CAN BE CHAINED BY XXDP & WILL NOT OVERLAY THE 


CHAIN MODE OPERATION (MONITOR) 


THE BUSS. ADORESS § beNFROLLER INTERRUPT VECTOR IS 


oO DEF 
J. DRIVE -O i WI BE TESTED. 
4 et OTHER IVES in THE DRIVE PRESENT’ CONDITION WILL 
TESTED 


THE DRIVE PRESENT CONDITION IS: 


CT T PORT eC TED 
Cg iy gee mireeecege ON 
DUMP MODE OPERATION (MANUAL ) 
INPUT DIALOGUE IF START D FROM 2 


DRIVE CAN Eo PRertae Ur alte ‘SPERATOR IS FIRST GIVEN 
cet WITH A SCRATCH 

PACK 3 <CR> 
3.3 ACT/APT 


THIS PROGRAM a3 BC 
ote a hg HEE 





NOTE: 









COMPATIBLE. IT IS APT 
XTENT THAT APT KS WILL BE IN THE 


PROGRAM & WW WORK THRU THE ’UPTON INTERFACE’. 
FOR OTHER INTERFACES. APT MAY ONLY LOAD & START THE PROGRAM. 
I.£. LOAD & DUMP MODE. 





AUTOMATIC MODE (MONITOR) 


1. THE INPUT DIALOGUE IS BYPASSED. 
2° THE BUSS ADDRESS & CONTROLLER INTERRUPT VECTOR IS 


—— ee - _ =_ ne _—-———- 


- _ TS A A 


ay 
+44 
mm 
. & 
wv 
~ 
— 


ots 


WOnc Ul rU-ObS OF 


re cp tae 


£0 


rururururorufururururururufururu 
LWWWWW rorororone 


= 
M-OWOONTUI 


rT 
<= 


S 
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DEFAULTED. 

3. ALL_DRIVES IN THE "DRIVE PRESENT’ CONDITION WILL BE 
TESTED. 

NOTE: THE DRIVE PRESENT CONDITION IS: 





8: HOES PROT SELECTED 


WRITE LOCK DISABLED 
BRIVE READY INDICATOR ON 


oO 


DUMP MODE (MANUAL): 


APT ETABLE DEFINITIONS 


TABLE CETABLE) ENTRIES. VIA RUNNI 











1. SOFTWARE ENVIRONMENT: 
=4 IF APT SCRIPT OD 
=0 IF STANDAL 

e. 









3. 
IS_SE 
OF THE 
R ONE IS 
N EGIST 
I N ar 
IN APT SERTPT MODE, HOWEVER, 4 (LOOP ON 
BE SET TO O. 
4. SWITCH 2 (USER SWITCH REGISTER) 


NOT USED 
S. CPU OPTIONS: 
NOT USED 


6. MEMORY TYPES 1-4 AND MAX MEMORY ADDRESSES 
NOT USED 


7. INTERRUPT VECTOR 1: 
USED WHEN ENVIRONMENT MODE BIT 7=1. 


8. BUS PRIORITY 1: 
USED WHEN ENVIRONMENT MODE BIT 7=1. 


DEFAULT 


DEFAULT 








T TO 1 


INPUT DIALOGUE IF STARTED FROM e220. 


THE SOF TWARE 


HARDWARE CONSOLE 
USED, ALL BITS 


ER OPTIONS) MAY USED 


TEST) MUST ALWAYS 


210 


SES 000S 


i ee 
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9. INTERRUPT VECTOR e: 
NOT USED 


10. ou fe) eh 2: 


11. BASE ADDRESS: 
USED WHEN ENVIRONMENT MODE BIT 7 = 1. DEFAULT = 177440 


l2. DEVICE MAP: 








USED WHEN ENVIRONMENT MODE BIT 1. EACH BIT SET TO 
1_ IN BITS O-7 WILL peLeet THE CORRESPONDING DRIVE TO BE 
TESTED. BITS 8-15 ARE NOT USED. 


13. CONTROLLER DESCRIPTOR WORDS: 
NOT USED 


14. DEVICE DESCRIPTOR CODES (IN WORDS): 
NOT USED 


DUAL ACCESS 

THIS PROGRAM WILL NOT TEST OR SUPPORT DUAL-ACCESS. A DRIVE 
EQUIPED WITH DUAL ACCESS MUST BE SWITCHED TO THE PORT UNDER 
TEST TO PREVENT CONTENTION WITH: THE OTHER PORT. 


nur. ACCESS TESTS WILL BE INCORPORATED IN A SEPARATE PROGRAM 
T A LATER DATE. 

MEMORY MANAGEMENT 

MEMORY MANAGEMENT NOT USED 


PARITY CHECK ENABLED 


IF THE MEMORY PARITY CHECK OPTION IS AVAILABLE ON THE SYSTEM, 
THE PROGRAM WILL RUN WITH MEMORY CHECK ENABLED. 


BAD SECTOR 
HE PROGRAM WILL COMPARE DATA ERRORS WITH THE BAD SECTOR 
INFORMATION CONTA : ON C YLIN DER 410 AD & PRINTOUTS 
F DATA ERRORS DUE TO BAD SECTORS/T ReKee WILL BE MASKED OUT. 
EXECUTION TIME 
THE EXECUTION TIMES SHOWN BELOW ARE BASED ON THE PDP 11/50. 
TOTAL TIME: 1 MIN, 30 SEC 


me — - 


SEQ OOO0E 
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FAULT ISOLATION 
TO BE DETERMINED. 


ERROR CORRECTION AND FAILURE RATE ANALYSIS 
Hat F< GRAM WILL NOT DO ERROR CORRECTION OR FAILURE RATE 
DEFAULT UNIBUS ADDRESSES & VECTORS 


VEC TORS OF ALL Ha Is rt F ALL DEFAULT ADDRESSES & 
T RARDL oe ,* USED & THEIR MEMORY 
S WHERE THEY CAN BE CHANGED. 








LOCATION - DEFAULT CONTENTS 
CONTROLLER INTERRUPT VECTOR 1314 210° 
CLOCK STATUS REG 1328 i7es4o 
-CLOCK SET yg Hs iin EAS Aer 
abae 5 1386 17524e 
NTE VECTOR 1 100 
NTERRUPT VECTOR 1332 104 
REG 1144 17756 
Y K 1146 17756 
TTY PRINTER STATUS REG 1150 177564 
TTY PRINTER BUFFER 11Se 177566 


OPERATING PROCEDURE & CONTROL FUNCTIONS 


PROGRAM LOADING 


THE PROGRAM CAN BE LOADED FROM PAPER TAPE USING STANDARD 
PROCEDURE FOR ABSOLUTE LOADER TAPES; OR FROM ANY MEDIA 
SUPPORTED BY XXDP. 


‘ 


LOAD THE STARTING ADDRESS (SEE SEC 4.2). 


SET SWITCH REGISTERS AS DESIRED (SEE SEC 4.3). 


ET ORIVES TO Be TESTED IN THE *LOAD’ CONDITION & WITH THE 
APPROPRIATE PORT SELECTED 8&8 WRITE LOCK DISABLED. DRIVES 
OT TO BE TESTED MUST HAVE BOTH PORTS DESELECTED. 


LT A mm me 


SES 0007 


| ee ee ee ee ee oe ee -- - 
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NOTE: THE DRIVE WILL NOT RESPOND TO THE ’START Tetoey 
allt al THE RUN/STOP SWITCH IS IN THE ’STOP 


PRESS ’START’ 
THE PROGRAM WILL IDENTIFY ITSELF A 


DIALOGUE WITH THE OPERATOR TO DETE 
(SEE SEC 4.5). 












THE PROGRAM BEGINS TESTING ONLY 
THE INPUT SPECI 
THE PR 

WAS NOT AVA 

ORI 

WIL 

PER 

IN 

BEG 

TES 


STARTING LOCATIONS 


LOCATION 200 - STARTING ADDRESS TO DEFAULT THE BUSS 
ADD & THE CONTROLLER INTERRUPT VECTOR 
& TEST ALL DRIVES IN THE *DRIVE PRESENT’ 
CONDITION. 


NOTE: THE DRIVE PRESENT CONDITION IS: 


A. HEADS MANUALLY LOADED 

me a PORT SELECTED 
WRITE LOCK DISABLED 

DRIVE READY INDICATOR ON 


oOoOw 


LOCATION 220 - STARTING ADDRESS TO INPUT TESTING PARAMETERS 
VIA THE INPUT DIALOGUE. BUSS ADDRESS & 
cs he data VECTOR INPUTTED ONLY ON 





IMPORTANT: FOR VARIATIONS OF THE ABOVE aa XXDP, ACT/APT 
CONSIDERATIONS IN SECTIONS 3.2 


ALSO. THE PROGRAM WILL AUTOMATICALLY DETERMINE WHETHER 
THE DRIVE IS AN RKOG OR RKO7. 

SWITCH REGISTER 

THE SWITCHES ARE USED TO PROVIDE CONTROL FUNCTIONS. 


SEQ 0008 


ee -_-—_> 


—_—_—— — oo | oer i 
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SWITCH FUNCTION 


T 
RROR TYPEOUT 


oom 


SW< 15> 
Ly. PROGRAM HALTS ON ENCOUNTERING AN ERROR, AFTER TYPING OUT 


THE ERROR MESSAGE AND PERTINENT INFORMATION. 
PRESSING “CONTINUE” CONTINUES MAL OPERATION OF THE PROGRAM. 


SW< 14> 


THE PROGRAM LOOPS ON THE TEST THAT IS BEING EXECUTED WHEN 
Ms We ie H IS PUT ON. THIS SWITCH IS NORMALLY USED ALONG 


SW< 13> 
THIS SWITCH INHIBITS ALL ERROR MESSAGES. et USED WHEN 


LOOPING ON TEST (SW14) OR LOOPING ON ERROR ( 
WITH SWITCH <13> SET, SWITCH <15> SHOULD NOT BE SET. 


SW<le> 
THIS SWITCH BYPASSES A GIVEN DRIVE AFTER 20 ERRORS HAVE 
BEEN DETECTED. 


SW<11> 


R 
(USUALLY 50, S IN SOME CASES). SETTING THIS SWITCH INHIBITS 
ITERATIONS, SO THAT QUICK PASSES CAN BE MADE. 


SwW< 10> 


RINGS A BELL ON ERROR. USEFUL WHEN ERROR TYPEOUT IS INHIBITED. 


SW< 09> 


SEQ 0009 


SE wm —-- 


S 
S09 


WUIUIUITUI UU uu 
OO ee ee ee coed rk ee ee oe od 
OWDONCTUL WMO 


Sel 
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THIS SWITCH PROVIDES THE TIGHTEST POSSIBLE SCOPE LOOP FOR 
ERRORS. THE PROGRAM DETECTS AN ERROR, IT WILL LOOP BACK 
TO THE BEGINNING OF TEST. 


SW<Gs> 
yy me oh Is Ue TO SELECT A EST (AS PER 
7>) NG. THUS IF 
TEST 15 Is "e8 a at WOULD BE 
a Me okey ion _ & LOOPING TEST 15S, 





"SOF TWARE’ SWITCH REGISTER 


IF THE PROGRAM ia & eet Rn 
te E. AN 43708 ° 11734 


me Re 
REGISTER is Bcario 


AN_RKOG INT 
ENTERED AS AN 
FROM THE SWITCH ENTRY ROUTINE: 


SWR = NNNNNN NEW = 
EACH TIME SWITCH SETTING NTERED, THE ENTIRE SWITCH 
REGIST TER I RUST ae? NIERED” EP ERDING ZEROS AR ARE NOT 
EON TROL U’ FUNCTIONS MAY BE 
SED RS Ds aaet VPING ERRORS DURING SWITCH RTRY. 
ON PROCESSORS WITH HARDWARE SWITCH REGISTERS THE 
GISTER Y BE US IF THE 
‘Tc S IN THE ’UP’ POSITION, ALL SWITCH 


ees 
REGISTER ER RE RENCES ari BE TO THE 'SOFTWARE’ REGISTER 
D THE PROCEDURES DESCRIBED ABOVE MUST BE FOLLOWED. 













ON 176 8) ). 


ROT ERG 


















INPUT DIALOGUE 


THE DIALOGUE WiLL oe ONE INTERACTIVELY. _THE PROGRAM WILL 
REQUEST A PARAMETER B v C0 ONSOLE TYPEOQUT. THE PARAMETER aid 
ae BE =r ae ©°r, IED BELOW OR ALLOWED TO DEF 


AULT 
eS coh ZED OR ILLEGAL a a oh WILL 


BY A CARRIAGE FOLLO 
OLLO THE PROPER RESPONSE M 


BE ECHOED BORED 
THEN BE ENTE 


IMPORTANT: FOR VARIATIONS OF 
CONSIDERATIONS IN 


THE ABOVE SEE XXDP, ACT/APT 
SECTIONS 3.2 


SEQ 0010 


ae, ee me 


- - —_————_- 


— — —— oe 
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ORIVE SELECTION 
THE REQUEST WILL BE: 
DRIVES TO BE TESTED: 


LUE OE aT ee BOSC PNT! COND TT TON. RETURN TO TEST ALL DRIVES 


THE OPERATOR CAN ALSO TYPE IN THE SPECIFIC DRIV yh eee S 
i a TESTED, SEPARATED BY COMMAS & TERMINATED A CARRIAGE 


° 
NA 
E.G. DRIVES TO BE TESTED: 1,2,4,6 
IMPORTANT: FOR VARIATIONS OF THE ABOVE SEE XxDP, ACT/APT 
CONSIDERATIONS IN SECTIONS 3.2 
BUS ADDRESS 
THE REQUEST WILL BE: 
TYPE IN BUSS ADDRESS IF NOT 177440 
THE DEFAULT IS A CARRIAGE RETURN 


CONTROLLER INTERRUPT VECTOR 
THE REQUEST WILL BE: 

TYPE IN CONTROLLER INTERRUPT VECTOR IF NOT 210 
THE DEFAULT IS A CARRIAGE RETURN. 


EXAMPLE OF PROGRAM DIALOGUE 


THE EXAMPLE SHOWN IS FOR A PROGRAM STARTED AT ADDRESS 2e0. 
ALL OPERATOR RESPONSES ARE UNDERLINED. 


UNIBUS RKO& DRIVE DIAGNOSTIC 

CZREIEO 

DRIVES TO BE TESTED: 1,3<CR> 

TYPE IN BUSS ADDRESS IF NOT 177440 <CR> 

TYPE IN CONTROLLER INTERRUPT VECTOR IF NOT 210 <CR> 


WILL TEST DRIVES: 


rm ee 


SEG 0011 


ee TT SR wee me — ee = ee ee ea a  - - 


—_ ~— oo mE EE TTT TET TEE TEE LL LT 


es oe 


- — oe eee - — « 


CZR6IEO UNIBUS RK& DR PRTe 
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COO rrrnr 
— bb bh 
WONT UI LUTE 


o 


COOOOo 
rorore 
Wr 
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DRIVE 1 


(THE REST IS IDENTICAL TO THE EXAMPLE SHOWN IN 4.6 BELOW) 


PROGRAM EXAMPLE 


THE FOLLOWING IS AN EXAMPLE OF A PROGRAM STARTED AT THE 
DEFAULT ADDRESS (200) & WITH 2 DRIVES ON THE LINE. 


init ey DRIVE DIAGNOSTIC 
CZREIEO 

ares TEST DRIVES: 

1 

DRIVE O 


DRIVE SERIAL NO. AAA 
CARTRIDGE SERIAL NO. BBB 


DRIVE i 


DRIVE SERIAL NO. CCC 
CARTRIDGE SERIAL NO. DDD 


END PASS #1 


WILL TEST DRIVES: 

i 

DRIVE O 

DRIVE 1 

END PASS # 2 
(ETC) 


THE ABOVE ASSUMES NO 
THE NUMBER OF PASSES 


E 

I 

IMPORTANT: FOR VARIAT 
CONS IDERAT 


HALTING THE PROGRAM 


THE PROGRAM PROVIDES A METHOD OF HALTI 
THE CARTRIDGE AND/OR DRIVE IS NOT LEFT 


RRORS DETECTED. 

S DETERMINED BY ACT/APT/XXDP 
I 

I 


ONS OF THE ABOVE SEE XXOP, ACT/APT 
ONS IN SECTIONS 3.2 & 3.32. 


NG ITSELF SUCH THAT 
IN ON UNDETERMINED 


— <-—— ~e- - ee  e 


SEQ O0le 


OO 


O UNIBUS RKE DR PRTe 


Pil 
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STATE; IE: HEADS UNLOADED OR INVALID FORMAT. 
TO PROPERLY HALT, TYPE CONTROL-C (tC) ON THE CONSOLE. 


IF HEADS ARE LOADED & FORMATTING IS VALID, 
THE PROGRAM WILL: 


ECHO fC 
T “CPU HALTED” 
HALT THE PROGRAM 


HEADS ARE NOT LOADED AND/OR FORMATTING IS INVALID, 
PROGRAM WILL: 


CHO *#C 
YPE *HALT PENDING, PLEASE WAIT’ 
DO THE TEST(S) THAT LOADS HEADS AND/OR FORMATS 
THE INVALID CYLINDERS 
TYPE *CPU HALTED’ 
HALT THE PROGRAM 


wt WKS —— Wwe 
< 


NOTES: 


1. THE ABOVE EXAMPLE IS FOR THE P 
M (MANUAL ) d THE PROGRAM 


AND/OR FORMAT’ CORRECT 
JUMP _ON TO THE MONITOR WHERE THE NEXT PROGRAM CAN BE 


THE TYPEOUTS WILL BE “ABORT PENDING - PLEASE WAIT” 
& “PROGRAM ABORTING”  . 


2. OPERATING THE *CONTINUE’ SWITCH ON THE CPU CONSOLE WILL_RETURN THE 
PROGRAM TO TEST 1 WHERE TESTING WILL BEGIN WITH THE 1’ST DRIVE AGAIN 







DRIVE DIAGNOSTIC FUNCTIONAL DESCRIPTION 
GENERAL 
A. WRITE TESTS 
THESE TESTS CHECK THE ABILITY OF THE DRIVE TO WRITE & READ 


WORSE CASE PATTERNS; PERFORM ALL OFFSETS & PERFORM ALL 
SPIRAL WRITING. 


B. SERVO & SPINDLE TIMING TESTS 


THESE TESTS CHECK & TYPE HEAD LOAD, UNLOAD & INDEX TIMING, 
ALSO MIN, MAX, AND AVERAGE SEEK TIMES, AND MAX VELOCITY 
OF THE HtaDS ARE MEASURED & TYPED. 


SEQ 0013 














02 
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Z ? S.2 TEST DESCRIPTIONS 

7 SRESHERERHESEREERE RA FHEERKREREREER HERES HERERASHERRERREEAES OER EEEE 

710 BASIC CONTROLLER TESTS. SIZING & SET 

oil et Rb BE Rt eR 1 ae | 
713 | 
214 TEST 1 REFERENCE ALL CONTROLLER REGISTERS | 
716 THIS TEST res me THAT ALL THE C NTROL STERS 

71? CAN ACCE out INAB ITY WIL’. 

718 RESUL RAP W .. ANY 

719 ERROR me THIS REOU WILL _RESUL te IN OTHER 

720 TESTS AND JUMPING TO "END OF PASS’ 

722 

723 TEST 2 SIZE THE BUSS 


7 
725 THIS TEST IS EN 
EITHER RODE. 





RED ONLY IF 
IN THE AUTO 
7 


Oe oR a Sn ON’ IS DEFAULTED 
SrAAtT IN THE 


2ESSED 
eo ae op ih THE PROGRAM "Hi WILL BYPASS 


TE 
NG 










FROM OT 
729 CONTROL ay ons 
Test 


730 res Yi 
731 Tes T ri ONL Y ROR WAS'A RESULT OF 
732 FE OR ING SE NED & DRA RESET IN- 
733 ICAT aoe ; 
F CERR IS Wel ILL BE TESTED AS 'N RKO? 









736 
737 TEST 3 VERIFY OPERATOR ORIVE SELECTIONS 


oat Is oe SED IE B07 "TS AOORESSED & NOT 


seh 1 NOT SET Fue 
eet OF moon ; 


TAS AN RKOB. 
BYPaS 
UFE R Rea Oe BOTH 
KED AGAINT HE cere fs A Sut 
Ethos 
Poe. DRIVE WILL BE TESTED AS 


TED INFOR to” 











TEST 4% FIND NEXT DRIVE TO BE TESTED 


754 THIS TEST FINDS THE NEXT ORIVE PRESENT & PUTS THAT 
SS_IN Rare & STMPY IS SET TO COT IF THE DRIVE 


RI S 
757 THROUGHOUT THE FOLLOWING TESTS, My, shales TESTED IS 
758 THE DRIVE WHOSE ADDRESS IS IN ‘DRVA 





761 TEST S PRINT DRIVE SERIAL NUMBER 


A eee el ee 


A LL TT CTT A Mm 


02 
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763 THIS TEST READS & PRINTS THE DRIVE SERIAL & FROM MSG A, WORD 11 

ged IN DECIMAL 8&8 IS PERFORMED ON THE IST PASS ONLY 

Z 

ree TEST & SET VV WITH PACK COMMAND 

5 IF VY IS RESET, THE PACK COMMAND IS USED TO SET IT. 

771 

a TEST 7 READ & SAVE BAD SECTOR INFO & TYPE PACK SERIAL #8 






BHICH Io HRITTEN BY fue pre oe, 


ae a AreA CONTAINS BAD SECTOR TneO- 






é Fp Ueteay Dat ant eRe eee 


580 I une ey feATING fHAT AL 
THIS TS” BONE "s0 RS NOT TO “WO DESTROY Bese + BR AN ALIGNMENT PACK BY WRITI 


784 THE PACK SERIAL # IS TYPED IN OCTAL & FOR THE FIRST PASS ONLY. 


786 
787 ee 
789 KEKE KERRSERRRRRERERSRERREERERRERRRERAARRRRRRRRRERREREESEREEEE ES 


TEST 10 BASIC WRITE DATA TEST; 1 WORD 













roe mt TEST VERIFIES THE ABIL ILITy OF THE 
73 hatYe Corman 15 TSsueD: Reno § ual 

738 FR RO RRTTE TER 

203 

801 TEST 11 BASIC WRITE DATA TEST; FULL SECTOR 

803 | THIS rere TOR ec T ILITY OF THE IVE TO WRI TE 

s04 G Cie ce BRE WRITTEN Y THE WRIT TA COMMAND 
805 Bc KEO “By A ar A bate URTHER CHECK IS PERFORMED 
807 ONE "ABOVE 1s REPEATED. FOR AN ALL ONES PATTERN. 

809 

B10 TEST 12 20 SECTOR FORMAT TEST 

Ble DATA IS WRITTEN ON 8 i TRACK IN 20 SECTOR FORMAT. 

81 MSG BO.B1 ARE CHECKED NY <ERROR CONDITION. 

B14 CYLINDER, TRACK, SECTOR O 

816 

B17 TEST 13 TEST OFFSET & RTC LOGIC 


qm ee eee KS ee ——-- = 
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TEST 14 


TEST 15 


TEST 16 


De 
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His TEST ChE ARE FIRST OFFSET BY OFFSET COMMANDS. 
THis on’ Bit THE a's LOGIC BY VERIFY 








vm Liha 





BIT (MSG A,00) RESETS AND T 
WHEN A SEEK CMD TO A 

TOLEAR & SE SEEK RF ad WILL NOT 
OFFSET POSITIONS IN BOTH DIRECTIONS ARE CHECKED 


TEST READ DATA AT ALL HEAD OFFSET POSITIONS 





EEL a 


POs oe an 


OFFSE 





TEATS he 


FAILURE SECURES. 





NG THAT 
OFFSET 


Loere Is 


MOVING OU 
"SHE OFFSET POSITIONS 


ET CODES. ARE A430 VERIFI p BY READING MSG A, STATUS OO 8 10. 
STED AT CYL 


‘i 


THE 
REG 


IF THERE ARE NO FAILURES AT ALL, THIS INDICATES THAT 






on 8: Te Core E NA Ton OF 


NOTE THAT THE OFFSET FAILURE IS NOT AN ERROR 
HEAD, & R/W EL 


BUT AN INDICATION OF SURFACE, 


WRITE WITH HEADS OFFSET 
URETE HET} He VERIFIE eat 


SINCE tt 








N ATTEMPT 
T THE OFF 


TEST CURRENT CROSS-OVER CYLINDERS 


LAR HESEARE EE ABE METS 
STIR, MEHTORrHEAREPICRTRR RE EARACOS"CA 


Biry DATA WAS PROPERLY WRITTEN. 














ti WaTT K Ma ALM pee one TO 
THis Test 1S PERFORME 3 HE 
CYLINDER X: 63 127 191 eSS 319 383 RKO6 
CYL 64 128 i192 e256 RKO6 
CYL 127 2SS 383 S11 639 767 RKO? 
CYL 1e8 2eS6 4384 Sle 640 768 RKO7 


ins Mi CLEAR 
BE to was a BN IMPLIED RTC ors omy 


Disc SURFACE, HEADS, R/W AMP 


FOLLOWING WAY: 
x TO CY 


}, See Y 
CYLINDER 


RATIONAL BY 
+ AND - OFFSET 


SEG 0016 


ECTRONICS QUALITY ONLY 


OO 


ZR6IE 
ZR6IE. 
875 
876 
877 
878 
879 
880 
881 
88e 
883 
884 
85 





eevee ev eTvelvelvelv elvelvalv ely e) 
OWONOU CWO co 


TD + be bh hehe bah he 
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THE ABOVE CYL NUMBERS ARE IN DECIMAL. 


TEST 17 TEST HEAD SWITCHING TIME 
TESTS THE ABILITY TO SWITCH HEADS IN LESS THEN 10MS WHEN HEADS SPIRAL. 
‘ oe OR ATED AND A WRITE DATA COMMAND OF S12 WORDS 
THE OR EE GA bs' NOT HAVE TO TRAVEL 
ease 3} 

3. a TEA Hse serif IME BETWEEN 

4E WRIT RON SECTOR 5 eS (8), HE HEAD 0; 
pe Tor "5 HEAD 1) AND CONTROLLER FOR SECTOR 


THE ABOVE IS REPEATED FOR HEAD SWITCHING BETWEEN 1 TO @ 
THIS TEST IS BYPASSED IF NEITHER L OR P CLOCK IS PRESENT 



















TEST 20 DRIVE OFF TRACK TEST 









THIS rest my FOR SERVO OSCILLATIONS DURING SETTLING TIME BEYOND 
THE ALLOTE 
1. INIT y 
(UNI 
é. A F 








; IS FORMATTED WITH IDENTICAL HEADERS 
SSUED a A_SINGLE CYL SEEK FROM 0 TO 
est SECT OR TO COME ER THE 
y’ READING THE TRIBITS, 
peatdOusse ae 


THIS MANNER OSCILLATING SEEKS ARE PERFORMED oe wee ALL MAJOR CYLINDE 
100 Beats g4 AT EACH MAJOR CYLINDER 
BE NEXT CYLI 


STANDARD FORMATTING IS FOLLOWED BY A 
THOSE CYLINDERS BACK TO STANDARD 











ANY TEST THAT MODIFIE 
ee UP’ TEST TO PU 
FORMAT. 


ERROR REPORTING 


ERROR INTERPRETATION 
WHENEVER 


SAE RCS His MAT eg ie a al 
CONTENTS oe Fhe” CORRESPONDING REGISTER S AT THE F IME OF 


EVERY ERROR MESSAGE CONTAINS A PC. THIS P 
POSITION IN PROGRAM WHERE THE ERROR CALL I 





- A _—o— — 
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ERROR Bean a ie 





THE PROGRAM LT! 













HE DA 
NPOINTING R THE TE . 


. 
Leet rete TING | 
eal ol iar eet 
NOTE 
NO ERROR LOGGING OR OPERATION HISTORY IS PROVIDED. 
ERROR PRINTOUT EXAMPLES: 
EXAMPLE #1 


ME ane ERROR 
AFTER TART SPINDLE CMD & FWD SET 
TEST NO. PC 


ae ‘aur Be B3 
030144 Hoon & 613704 Boo00, 


machete 


co a a 

TE SEOVGEERSREAE ROMESO*RECTEB* ACTUA. OnTR Fo 

The CYL ENDER Bible L_PE TYPED QUT ONLY AS REQUIRED IF 
HERO & SECTOR 






ORESS & 
NFORMATION IS A’ VARIABLE PARAMETER OF THE 


EXAMPLE #e: 


~~ ATTN IN RKASOF 
FTER UNLOAD COMMAND 


TEST NO. PC 

000003 OL 1S30 
RKMR RKMR RKER RKOS RKCS1 RKCS2@ RKASOF 
000144 100000 goo0000 100101 O00e06 000104 9g00000 


— tA i ll A ET  £ LL AL EL  — E  R 
———— eee 


em mmm me 


0e 
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987 
988 
989 { END OF DOCUMENT 
990 


————_——_— 


SEG 0019 
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991 
992 
993 
332 + EH PCM R V 938, HH 
-NLIST M 

elelet . = 
232 * ENABL ABS, AMA ‘ 
ieee ;DEFINE SYSMAC MACROS 

74 WR= 7400 sDEFINE SWITCHES 1S, 4,13,11,10,9,8 
1802 ABooDt “ie eee ReT TEST NO.’ tO" 1 
1004 
1005 
1006 ITLE ii? UN Bus RK6 OR PRT2 ; 
1BBa Bie ITAL EQU prent “CORP. 
Sta 
1011 EPR AM o GARY PAPAZIAN 
1Bts - THIS PROGRAM WAS ASSEMBLED SING THE PDP-11 MAINDEC SYSMAC 
1014 ; ¥PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977. 
1016 ; 
1017 . SBTTL OPERATIONAL SWITCH SETTINGS 
ibis : SWITCH USE 
1020 sc £§;}j #seess= £i@oi - ssasenecoosessnessre 
1021 : 1s HALT ON ERROR 
1022 : 14 oop r 
1023 : 13 INHIBIT TYPEOUTS 
1024 : le T ORIV AFTER 20 ERRORS 
102s * 11 ig TERATI NS 
1026 -% 10 
1027 : g OP ON ERROR 
1028 : 8 OOP ON TEST IN SWR<7:0> 
1853 
1031 . SBTTL SUMMARY OF STARTING LOCATIONS 
1033 - 
io3e + coe DEFAULT PARANE PARAMETER $ BYPASS WRITE TESTS 
1036 : i 214 PARBME T ie YPAE S TIMING TESTS 
1037 * i 220 I APUT P 
1038 : 224 INPUT PARAMETERS & BYPASS WRITE TESTS 
1039 * 230 INPUT PARAMETERS & BYPASS TIMING TESTS 
1040 ; 240 ODT 


ee ee ei 


OO 
NN 


wD 
o” 


wD 
£fiftf 


oo000 o 


RRA 
ee Ltoe 
wi twre 


OOuUIUIUT 
—-O0OON 





ro s 
NOUILW 


NNNNNNNNNNO 
OWONTUSWM-OWD 


Mmmom 
Wrure 


DOU L 


b— bs bb be Pb bb Bb be bb bb bb bb bb b= bb be bb b= bb Bb pb BP be bb bh be Pb bP bb Pr b= bp pb bP pb bP bh Pe PR he 
© 
wW 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
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001100 


000011 
00001e 
000015 
000e00 
177776 
177774 


000300 
000340 


100000 
0000 


000010 
000004 


—_—— ——- eee ee 
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BASIC DEFINITIONS 
.SBTTL BASIC DEFINITIONS 
#INITIAL ADDRESS OF THE STACK POINTER ### 1100 ### 


ataAcKk= [1 
QUIV EMT, ERROR ‘BASIC DEFINITION OF ERROR CALL 
 esuty IOT, SCOPE tt BASIC PEE INTT ON OF SCOPE CALL 
- MISCELLANEOUS DEFINITIONS 
HT= 11 i Eobe FOR ene Peo TAB 
LF= le OR LI 
chr: 500 FoR KARR 1AGE Re RE TURN-LINE FEED 
PSs 7 177776 Es OR STATUS WORD 


-EQUIV S 
TKLMT= 177774 ACK LInty TER 
‘eee 
DDISP= 177570 ;§ HARDHARE ‘BuLiCH pear ctER 


; #GENERAL PURPOSE REGISTER FINIT 
Ro= 4.0 R PRE ane REGTSTER 





Ri= “1 : ? GENERAL REGISTER 
Re= a4 8 TER 
R3= 3 8 TER 
RY= “4 8 TER 
RS= “5 8 GISTER 
Rb= “hb ss Ree STER 
R7= “7 es S be 
SP= %~6 ss OIN 

PC= “7 38 COUNTER 


PRO ORITY LEVEL O 
PRi= + ORT LEVEL 1 
PRo= 100 ;;PRIORITY LEVEL @ 
PR3= 140 i3 ORITY LEVEL 3 
PRY= 200 x ORITY LEVEL 4 
pees S08 BuioatTy CAVE § 
PR7= 305 tT PRIOR Rf LEVEL 7 


-**SWITCH REGISTER” Rapala DEFINITIONS 
6wiS= 100000 
SW14= 000 
SWi3= #20000 
SWie= 100 
suid: 3898 
= 
SWOS= rtatate 
SWOS= 400 
SWO7= 200 
SWOb= 100 
SwOoS= 40 
SWO4= 20 
SWO3= 10 
SWOe= 


- 2 ee ee ee eC - 


219) 
NN 
DD 


oo 


OO 


QO0000WWU -- 


Oo 
ONCOL WM -OWONOU SWE Ow Stott Wt ay tts OoOwgo mn 


Litre Fe ern wn wecrvedt © caltuoe coh 


> b+ b= bb bb bb b= Bb b= b= = bb 2 = bb bb Bb b= b= Bb b= b= bb Bb bP b= Pb b= be bb bb Pb bb bh bh Oh bh bb bb be pe pe 
Wrur-OwWWD Sarin £Whve--OWOnN 


bo bb Pb Fb = b= bb Bb bP Bb bb bb bP 2 b= bb bb bh heh > - pp bb be Fb Pb PD bb bP bP bb he he Oh hh pa he 


WINN ££ 


Vv 


~-C 
~— Zz 


——— —_—_—— 


IBUS 
1 


OO ee ee 
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O-JAN-78 09:43 


JAN-7 
000002 
000001 


000001 


000004 
000010 


000060 
000064 
000240 
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BASIC DEFINITIONS 
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SWOl= 2 
abba 1 

-EQUIV SWO3,SWS 
-EQUIV SWO8,SW8 
-EQUIV SWO7,SW7 
-EQUIV SWO6, SWE 
‘Baray SWOS , SWS 
FOU v 3° Sua 
-EQUIV SwoO’ SwO 
-*DATA BIT 
BIT1S= 100000 
BIT14= 40000 
artis. 2 
BITle= 10000 
BITLi= 4000 
BiTiO= 2000 
BITOS= 1000 
BITOS= 400 
at ia?s 200 

IT06= 100 
Bt ieee 40 

ITOY= 20 
BITO3= 10 
Bri Res 4 

110hs é 
BITOO= 1 

-EQUIV BITOS,BITS 
-EQUIV BITO8,BITS 
-EQUIV TO7, +12 
RY BGR: BtTs 
. ’ 
Eeuty to3" iT3 
OU tog i 
~ EQUIV 100’ BITO 
-#BASIC “CPU” T 
ERRVEC= 4 
nee C= 10 
TBITVEC=14 
TRIVEC= 14 
BPTVEC= 14 
ONES 
EMT VEGs 50 
TRAPVEC=34 
TKVEC= 60 
TPVEC= 64 


VEC= 
PIRQVEC=240 


11:25 PAGE ee 


RAP VECTOR ADDRESSE 


S 
Ge 88 TELE n-r10 
TRACE TRAP 

PRET OUTPUT TRAP (LOT) *x*SCOPE ¥% 
| JEMULATOR TRAP (EMT) **ERROR** 


:: TTY KEYBOARD VECTOR 
. INTER VECTOR 


.SBTTL RKOG CONTROLLER REGISTER DEFINITION 


SEQ 0022 


mem - ee ee | eee 


OO A TT - ———_ + — —— ——— - = 


CZR6IEO UNIBUS RKE DR _PRTe 
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1154 
1155 
1156 
1157 000000 
1158 000002 
1159 000004 
1160 Beat B 
He Baga 
ties 600015 
1164 000016 
1165 000020 
1166 0000 
1167 000026 
1168 00034 
1169 000036 
1170 000030 
i171 000 
1172 
1173 
1174 
1175 
323 
117 000001 
1178 000003 
11793 00000S 
He Baa 
1182 600013 
1133 00001 
1184 00001 
1185 000021 
1186 000023 
1187 0000e5 
1188 000027 
1189 000031 
1190 
1191 000001 
1192 000100 
1193 000200 
1194 000400 
1195 001000 
1196 002000 
1197 004 
1198 010000 
1199 0200 
1200 0400 
1e01 100000 


TE ~~ — + —— - eee e ome - 


KOe 
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RKO& CONTROLLER REGISTER DEFINITION 


: S$BASE=177440 
RKCS1= O 
KWC= e 
RKBA= uy 
KDA= 6 
RKCS2= 10 
KDS= le 
RKER= 14 
RKASOF= 16 
RKDC= 20 
DB= ey 
gtd Ne 2b 
MRe= 34 
MR3= 36 
RKECPS= 30 
RKECPT= 32 


.SBTTL CONTROL AND STATUS REGISTER 1 BITS (RKCS1: 








,e (O=RKO6, 1 


FORMAT (O=22 SECTOR 
OR DETECTED BY KONTROLLE 


1 oleh ERROR 






SEG 0023 
SET REGISTER 
AGE LINE A) 
LINE B) 
1=RKO7) 
ise SECTOR) 


TE EE LTE TEE <a <t/  e me  me = - 


Kgnetes UNIBUS RK6 DR PRTe SEQ 0024 
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PAGE 24 
ONTROL AND STATUS REGISTER 1 BITS ‘RKCS1:0) 


ee 


















1202 100000 CCLR= BITIS ;CONTROLLER CLEAR 
1204 _SBTTL CONTROL AND STATUS REGISTER 2 BITS (RKCS2:10) 
VMSK= 7 K FOR DRIVE SELECTION CODE 
SERBS BRUSH Ba IEEE EERE Fars 0 
1 50004 CLR= tS us TEES L ONTROLLER AND ALL DRIVES 
iS: a: ‘i 
lele 000400 Hoss ets UNIT FI RROR aie 
ae sie = H 
Be a ee Hi Reais sr fete 
iste B1006¢ Reps BiTIe eae Pear thet 
1e18 #9000 Whe BITTE iMRLTE, CHECK ERROR 
121 DL T= TiS A LAT 
1220 
1221 .SBTTL ERROR REGISTER BIT DEFINITION (RKER: 14) 
1223 LF TO TION CODE 
i583 veers ae OBETS t ULE GO COMPLETE 
1225 000004 NXF= BIT? ‘NON-EXECUTABLE FUNCTION 
1385 epese DRPAR= ANE POEIEGTED SERCON PARITY ERROR 
l 56 4 OTYE= tS ; IVE TYPE ERROR 
Blas aa 655 Eefon camo 
le3l 0 HVRC= Bite 
1535 bozo Sohe= BITIO pe inh RRRDrass LE KRORS HEAD/CYL 
1234 004000 WLE= BITI1 LOCK 
1235 010000 DT—e= BITIe 14M THING ERROR 
1236 92000 OPI=  BITI3 ;OPERATION (SEARCH) INCOMPLETE 
1237 o4000 Nes BITS Bele uneat 
1239 ~ 
1240 _SBTTL STATUS REGISTER BIT DEFINITION (RKDS: 12) 
Le¥e 000001 ORA= _—=s«BITO or SBT aE ai GONTROLLER IS SET IF 
1244 000004 OFST= BIT2 ; DRIVE OFFSET 
iSue 900020 DeLO= BiTa Bis ie 
47 4 T= RI OFF TRACK 
{Sue 500100 We =«oBtte 
Bes at BYE Ree commu, 1407 
1251 40 x Til - 
1252 020000 PIP= 1713 ‘ POSI IDNING IN PROGRESS 
1253 040000 oSC= BITI4 ‘DRIVE STATUS CHANGE 
1254 100000 SVAL=  ®BITIS ‘STATUS VALID 
1858 SBTTL MAINTENANCE REGISTER 1 BIT DEFINITION (RKMR1:22) 


ES ewe 


TT, oe a, TE TES TS TT mm mm 


ETE ETT LLL Se mm ce em cm AL LS II me 


——_ = ere ee 


- rr ee 

















7 
le7e .SBTTL DEFINITION OF DRIVE STATUS BYTE OO MESSAGE A (RKMR2: 34) 


SIEM BSE ng MM BER atte LAE FF come se0 one 
ies tes oe te He aay ae ON SERCON MESSAGE LINES 
1362 000200 MIND= BIT? ies e inex 
: ac [ik SSS ie 5 
1265 MEWO=  BITIO NCODED WRITE OpATA 
ibe? raleets PeB= —s«B Ti ESSEREETISN BELAY. 
1268 00 ECCWs aig ae 1S BEING READ OR WRITTEN 
13? id Rhos tea tid He 
127 







74 ' AVA E 
igre a580%8 BPO BHTE 06 Yhe VANE 
i599 eter ‘Dots pire s ORT Ve TYPE ‘0 RKO6, 1=RKO7) 
a = ; = = 
| at Bu 
ie BRIG p ceeee (he 
1281 tree BB TN= Bitts WRT BOE 
1282 020 p.PIP= BIT13 *POSITIONING IN PROGRESS 
1283 040000 -0SC= BIT14 ‘DRIVE STATUS CHANGE 
128s _SBTTL DEFINITION OF DRIVE STATUS BYTE O1 MESSAGE A (RKMR2:34) 
1287 000020 D.SSP= BITY -SERVO SIG PRES 
1288 000040 D-HDHM= BITS + READS HOME 
1383 $03208 B Boone BH Book 
° “ 4 
1291 etertte "CART= BITS * CART I 
Lede 001000 D. SPOK= BITd -SPEED OK 
ae = ; 
1544 iiatitetere p REV= : Tll : pee 
ee ua eee Bs ETN 
m = 
1237 0400 B: D= Bitia HEADS ING 
1500 .SBTTL DEFINITION OF DRIVE acaba BYTE OO MESSAGE B (RKMR3: 36) 
1301 000040 D.IDAE= BITS i INVALID DISK ADDRESS ERROR: HEAD/CYL 
is a: Barre Gus 
1 O04 "ILF= BIT ON 
ie cee Bikes BLS ita ae 0 ee 
. = 
1307 040 B: E= Birt Pi: A RE 
1386 apts - SPLS= Tip ie toeK 
1309 0000 0.DROT= BIT13 {RIVE OFF TRACK 
1310 040000 D.UNS= BITL4 a 
i3l¢ _SBTTL DEFINITION OF DRIVE STATUS BYTE O1 MESSAGE B (RKMR3: 36) 


- a 5 ee ee eee we ee ee + ~ 


_-— 


OO 
D3 


Ps -e f-0 & 2 bs bs bat oH 


o 


rurururoru 
—-OWDONCULWM-OWONCOUL Mmm 


tb eh be ee 
WWwrur 


RtAttAL AT REAL HiT 


WUIWUIW 
NOUI LW) 


O UNIBUS RK& DR PRTe 
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x 


wad 
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u 
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‘OF DRIVE STATUS BYTE O1 MESSAGE B (RKMR3: 36) 


; SECTOR ERROR 
;WRITE CURRENT AND NO WRITE GATE 
;WRITE GATE AND NO TRANSISTIONS 






4A 4 
rr DO NO UTE 

: 

m 

w 

m 

rr 

m 

O° 

“~ 


I 

0 R 

EK AND _NO MOTION 

MIT DETECT ON SEEK 
UNSAFE 


£Wrre-O 


COMMON MASKS AND OTHER BITS: MESSAGE A (RKMR2: 34) 


‘DRIVE CODE, ALL BYTES 
b 2770 i RIVE SERIAL #, BYTE 11 


COMMON MASKS AND OTHER BITS: MESSAGE B (RKMR3: 36) 


T14 ‘ALIGN SIGN, BYTE 10 
i Ese neta FiO 
TiS ‘PARITY, MESS A/B, ALL BYTES 


SEQ 0026 


me mm eee 


WW 
pint tet owt: 4 


meyers: 


WW 
Rita 
WOnTWN£ 


Sib a 








-PERES FARES 5 


® 


SRRPER 


+ = b+ bb bb bb bb bP = bP bP bb bP bP bb bP bP 2 2 bb bb bb = bp bP bP Pb bP bP BP bP bp bP DP bP 2 bP Pb be bP bb Pe 
a a 
-OwW” 


WWWWW) 


93 


rrvery 


sun 


p00220 


000137 


000240 
000137 





012eSS6 
012546 


OSSSO00 
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COMMON MASK 
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AND OTHER BITS: MESSAGE B (RKMR3: 36) 


-SBTTL TRAP CATCHER 


Petes a sree 


ILL 
s XLOCATION | aes NS 0 TOC 
are eb AY REGISTER 


DISPREG: 
SHES: TCH REGISTER 
TL star —, *oorssce9 
SSTART ; ; JUMP 10 STARTING ADDRESS OF PROGRAM 


4 = 776 CONTAIN A ™.+2,HALT” 
HA. ay INTERRUPT 
ATCH IMPROPERLY LOADED VECTORS 


LOCATIONS FROM 










ime PARSRT ; INPUT ALL PARAMETERS & START TESTING 
=240 
IMP 0.O0DT ;ENTER ODT11 


.SBTTL ACT11 HOOKS 


: ennnanneeunennenneceqnenaneannsaaneneennaenenenenensenenneeeess 
HOOKS ge BY ACTI1 
; SAVE PC 


;;1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
100000 Ht LOC.Se TO i00000 
ORE PC 


EN5 33 REST 
. SBTTL ist TER BLOCK 


+ SEREEESEESESSERSESEELERESERAEAAAARAASARHRARALAARHARALRKALRARLREEAE 


SET LOCATIONS 24 QUIRED FOR AP 
s SEEEEEELE SALES LLALLAS ELE KALLA ERERRER REE RRRRRE RELL EERE ERE EE 


. $X=. - NT pogar ION 

206) i. T 4 Ae ee POINT TO START OF PROGRAM 
NT t wt y reach — PNTR. 

SAP THOR 3368 NT T 


seuzendtiftennll Beserabettl tte CHUIEtonneenssssesenessonsssnes 
T PARAMETER 




















téETUP BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
t TRTERFACE SPEC. 
SAPTHD: 
SHIBTS: .WORD O >; TWO HIGH IT MAILBOX ADDR. 
ADR: .WORD SMATL ; ADDRESS OF x (BITS 0-15) 
TSTM: .WORD 80. °:RUN TIM OF LONGES ST 
sPacth WO ;;RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VER 
T WOR ‘ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDI 
WORD  S$ETEND-SMAIL72 ::LENGTH MAILBOX-E TABLE (WORDS ) 


LIST © 


I 
T 


2 
I 


SEQ 0027 


Y) 
ONAL UNIT 


—_—_— MT me _ 





— . eee ——E 


* 
_—_—_—_—$— A TT mw _— 


CO3 
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1394 ;USE LOOP X TO OMIT SUBCLR 
1395 : 
13% 
1397 . MACRO LOOP A 
MOV aS K, : K 
1338 § STACK, SP RESTORE STK PTR 
1401 LIF 8 A 
14 SR PC, SUBCLR 
1403 ERROR 24 -CERR AFTER SCLR 
1405 BS 
1406 -ENDM LOOP 
. 1407 
fos THIS MACRO FILLS EXPECTED MSG AO, BO, Al, Bl, A2, B2 & B3 WITH STANDARD BITS 
1410 Aad. osc AFTER ATTN OR O AFTER ORIVE CLEAR OR ANY IMPLIED SEEKS 
ee ; NOT E: A CAN BE ANY BIT COMBINATION DESIRED. 
i418 ’MACRO F.EAB A 
141s Mov a <A'D. SPIN!D. DROY!D ,VV1D-DRA>,E-AO  ; sEXPECTED MSG AO 
tis MOV ry . eee cart: Rate tha BRAM! BussP >,£.Al ;EXPECTED Al 
1418 Moy ea Bl ; pyeetfebon Cae MSG Bl 
1136 V $2,£.B2 isc D one CTED MSG B2 
1421 MOV #3,£.83 -MSG ID FOR EXPECTED MSG B3 
1422 .ENOM F.EAB 
Hes 
1425 : TH MSG AD 
Nes THES ba age ORIVE 
14g? : USE ce 
1428 : est. 
14e9 . I=T. 
1430 : 
1431 : USE F=<ERROR DESCRIPTION> 
1433 "MACRO CHECK A,C,D,E,F,G,H,1 
eh a SA 
138 + a 
1438 Cc 
1439 i 
1440 
144 . ENOM 
144 
1443 
1444  A=CYL DIFF /OFFSET gERROR i 
1445 ‘B=CYL ADOR ERR 
L446 : C=<ERROR DESCRIPTION? 
144 
i448 ‘MACRO CWD2 A,B,C, 7D, 7E 


——— TT ewe wee 


em em em ee 
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CZR6IEO UNIBUS RK6E DR PRT2 











CZR6IE.PI1 10-JAN-78 U9:43 T PARAMETER BLOCK 
1450 MOV #2, RKMR1(RS) :SELECT WORD 2 
1451 ISR PC GSAT 
14Se2 TST cYLOIF ;SEE IF MSG A2=0 
1453 i BR. IF YE 
183 OR cee iF Mec T CLEARED C 
1455 D: ST CYLADD SEE 
1456 BEQ -BR I 
i386 ERROR : MSG Bo Ni T CLEARED C 
14 -ENOM CWD2 
1460 
1461 .MACRO DRCLR 7A 
iWe3 Vv ecc R, RKCSI(RS) 
146s nov ase ise ; DRIVE # 
i P M : : PO ONTR RDY 
hes eRRor 181°" @ ROY AFTER D Brive SLEAR EMD 
1468 JSR PC, TSTATN T FOR ATTN 
1430 ‘ PRROR 1S4 a NOT CLEARED AFTER ORIVE CLEAR CMD 
172 f 
147 .ENDOM ORCLR 
1474 
iWse 
hia -USE CALIB x TO OMIT CHECKING MSGS AD, BO, Al, Bl, A2 & Be 
18 "MACRO CALIB 
1480 
1481 MOV 
1482 MOV 
iy ; f RECAL CMD T CONTR RDY 
{aes bor RB RS SEY oP ER AERA" 
1487 MOV #1, RKNR (RS) :SELECT WORD 1 
tH 27% at 3 ARE 
1490 BNE Cc 
i432 ERROR it nen RITZ NOT T SET DURING RECAL CMD 
14 rt: pe tat ‘FINO atin 
1494 ss -NO ATTN AFTER RETAL CMD 
1495 IF B 
Na orf 
14 1,275, 222,276 ‘AFTER RECAL CMD>,T.A2,7.82,7.B3 
1498 7,50, <AFTER RECAL C 
1499 .ENOC ame 
125. 
1808 .ENDM CALIB 
iSO4 : 
150s ‘QUICK START SPINDLE 


_— _ a — 


= = 


a3 





ODO VOU £ WU ODD Ie 


WUNUNUTU UU UU un en 
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NeRLOW-S 


WUTUTUUT TUT anu 


ob + eb 0 8 eb be ee ee 
nm uaa ay a a a oe ee 
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MACY11 30A(10S2) 10-JAN-78 11:25 PAGE 30 
APT PARAMETER BLOCK 
‘MACRO @KSRT 
JSR PC, SUBCLR 
ERROR 24 :CERR AFTER SCLR 
MOV wSRTSPL,HCS1 
JSR PC, DOCMD :DO START SPINDLE CMD 8 GET CONTR RDY 
ERROR lel ‘RDY NOT SET AFTER ST SPIN CMD. 
MOV T100 TENPe ;SETUP TIMEOUT 
ISR PC, FATTI -FIND ATT 
ERROR 74 -NO ATTN AFTER ST SPIN CMD. 
CLR UNLD 
.ENDM  QKSRT 
t Q@=WRHEAD/<CFMT! WRHEAD> 
: USE WRHOR <A>,X TO OMIT CHECKING AO, BO, Al & Bi 
"MACRO WRHDR A,C,K,?D 
8<A>.¥CSl 
Pc. DAIC. 0 :DO DATA xX FOR CMD & GET CONTR RDY 
- 206 "NO RDY AFTER WRITE HEADER CMD 
PC, GSTAT :GET FRESH STATUS 
— K 
, #< CENT! SELDRV> , HCS1 
DOC 
11? ;NO RDY AFTER SELORV CMD 
.ENDC 
SCERR,HCS1 
1 :CERR AFTER WRITE HEADER CMO 
MSG26 ‘ABORTING BAL OF TESTS 
. IMP $e0P 
wee 
F EAB g 
ane CHECK 77,267, 300,270, <AFTER WRITE HEADER CMD>,0,0,0 
.ENOM WRHOR 
: g 7 <CFMT! RDHEAD> 
SUSE ROHDR <A>,X TO OMIT CHECKING AO, BO, Al, Bl 
"MACRO RDOHDR A,C,?D,7E 
MOV #RHTAB, RO 
MOV #<A>. Hes] 


a me ae ee 


SES 0030 


ee ee ee ee - A _— SAT 


21) 


- —~--- - eee ea Eee — = _ 


ee ese eae ae ee -_—_ ~-— 


FO3 
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St2 ;D0 DATA X FOR CMD & GET CONTR RDY 
‘NO ROY AFTER READ HEADER CMD 


l 
l 
l 
1 
1 
1 
1 
1 
1 
l 
l 
1 
1 
1 
1 
l 
l 
1 
1 
1 
1 
l 
1 
1 
1 
1 
1 
] 
2 
1 
1 
1 
1 
1 
l 
1 
l 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
l 
1 
i 
l 


uw 


oo 
witw 


eb 
66 
? 


SESE TREE RARE HIER 





Bae. 







D: ;1’°ST WORD FROM SILO TO RHTAB 
7 se’ND WORD 
: ;3’'RD WORD 
74 
a 
? ;OLT AFTER READ HEADER CMD 
575 -ABORTING BAL OF TESTS 
S81 E: 
285 - eB =O 
S84 — CHECK 301,271,302,272,<AFTER READ HEADER CMD>,.T.Ae,T.B2,0 
ENDM $$ RDHOR 


Set 


.MACRO HDCHK3 7A 


ut 
0 


st 


ROHDR  RDHEAD 
235 CMP RHTAB, TOCYL :CHECK WORD O ONLY, CYL® 
94 BEQ AQ -BR IF SAME 
35 : OR Si ‘WRONG CYL# ON HEADER 
=97 : 
538 .ENDM HOCHK3 





8 


: A=TOCYL/FRCYL , B=HEADS, C = OC FOR 22 SECTOR, 1 FOR 20 SECTOR 





6 ; 

es "MACRO HOTBL A,B,C 

6 MOV A, CALADD ; SETUP 
606 MOV #8 HEAD -TO FILL 
607 MOV 8C | FORMAT ‘ WEADER 
608 ISR PC’ FHDTAB : TABLE 
610 .ENOM HOTBL 

E12 7 

bi 3 ‘QUICK SEEK. ENTER WITH CYL® IN RKDC 
pis "MACRO QKSEEK “A 

617 MOV eSEEK,HCS1 ‘ 


ole) 


ee 


eleote 


Pv 


fore 


on 


Coo nope) Aik be BRE Oe 
Wit WLW OWO NOUS We O 


o 


oe - bh - B+ b= b= b= b= b= b= D— BP b—- b= P+ b= b— Pb + - B= + b= BP b= Pb ~ b— fb PP P= bh Pb - b= b= B= bb = P= b= bP ph heh PH | Bm bm - e- — P 
NNN 
WOW 


rnrnom 


Me-Owo mm 


ars 


NRRL WM Ow 


OUT 


~~ 


‘+ © 
wv 
~ 
~ 


$ 


IBUS RK6 DR 
10-JAN- 


PRTe 


78 OS 


743 
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ma a —_- = 


O03 


10-JAN-78 11:25 PAGE 3e 


APT PARAMETER BLOCK 


ERROR Sh 1RO ROY AFTER SEEK CMD 
Mov .-—«TSOOOO, TEMP1 = ; SETUP TIMEOUT 
ERROR wee INO ATIN AFTER SEEK CMO 
BIT #CERR,HCS1 
ERROR 210 -CERR AFTER SEEK CMD 
= 
-ENDM  @KSEEK 
: AEWRDATA/<CENT! WROATA? 


MPT TO WRITE ON ANOTHER SECTOR 


;C=ADOR TO JMP 
SS TEST 


TO ATTE 
DTP BLANK WILL. CHEC 









K AQ, BO. Al & Bl AT THE END OF WRITING 
-E: IF NON BLANK WILL OMIT CHECKING AO THRU Bl 
MACRO WDATA A,C,D,E,J,K,2F, 7G, 7H, 71 
MOV <A> eS 
PC, DAT :DO DATA X FOR CMD & GET CONTR RDY 
Bon EO ,20 DATA x FOR CHO & GET CON 
s SR PC, GSTAT :GET FRESH STATUS 
-ENDC 
IF NB K 
MOV Bc CENT ESELORV ,HCS1 
—_ 2 BRor 11? ;NO ROY AFTER SELORV CMD 
: T @CERR,HCS1 
Bo I :BR IF NO ERRORS 
BIT SBSE, HER : Ee. F SECTOR FLAG 
R PC, TRUERR ‘ELSE SEE IF SECTOR LISTED IN BSE TABLE 
aR H ‘RETURN ERE iF NO 
IF J 
SECTOR ;RETURN HERE IF YES 
SECTOR, #10. ‘ARE 10 CONSEC. SECTORS BAD 
ai 46 : 89 I @ TEST DETECTED 10 BAD SECTORS 
F: BCCLR,RKCS1(RS) ORY BROTHER SECTOR 
IMP . 
iro” one J 
IMP 3$ -RET HERE IF YES 


—_ ae — 


SEQ 0032 


- ee oe ee ee ae oe oe 
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1679 


SNE EMEP S SOOO OKT rron 
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MACYI1 J 
4 


11:25 PAGE 33 


;CERR WITH WRITE DATA CMD 


S3,25, <AFTER WRITE BIR fOr ate. T- 


- ABOR sTs 
»BAD SECTOR NOT LISTED IN 


Be,0 


TABLE 


0 
S2,23,53,25,<AFTER WRITE DATA CMD>,T.Ae,T.Be,0 


9A(10S52) 10-JAN-78 
PT PARAMETER BLOCK 
ENDC 
6: ERROR 12 
F EAB : 
FUBEK = Ee 
MP ¢E0P 
H: ERROR 63 
IF B E 
F.EAB 
CHECK 
.ENDC 
“ENDM WDATA 


S A=RDDATA/<CFMT!IR 
»USE RDATA A 


.MACRO RDATA 


IF 
. ENDC 
. IF 


. ENDC 


G: 
IF 


MOV 


ONTR RDY 
0 


SES 0033 


eRe x TO OMIT CHECKING AO, BO, Al & Bl 
A,C,K, 7D, E, 2F, 2G, 7H 

Be OATCRO ;DO DATA x FOR _CMD 8 GET C 

13 ‘NO RDY AFTER READ DATA CM 

BC, GSTAT ;GET FRESH STATUS 

S<CFMT!SELDRV> ,HCS1 

PC, DOCM 

11? sNO RDY AFTER SELDRV CMD 

#CERR,HCS1 

#BSE , HER ;SEE IF BAD SECTOR | 

BS :DETECTED BSE IN READ BUT NOT IN WRITE CMD. 
MMSG26 ;ABORTING BAL OF TESTS 

sor 

#DCK, HER ;SEE IF DATA CHECK ERROR 

21 ;DATA CHECK ERROR AFTER READ CMD (ECC) 
14 ;CERR AFTER READ DATA CMD. 


S 
0 
C 
0 
S 


84, 26,56,30,<AFTER READ DATA CMD>,T.A2,T.B2,0 


4,26,56,30,<AFTER READ DATA CMD>,T.A2,T.Be,0 


a 


_—_——- me ee ee | 


SehEoU-o mm 


WONMUIL wre 


SNNNN 


=O 


eh pip aah cL 
M-OWONMUILW 


NNINN 
Ww 
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“END 


T 
EXP 


OSe) 


: 


HK 
CT 
WRCHK 


RDATA 


-MACRO WRCHK 


F: 
IF 

. ENDC 
. ENDM 


. MACRO 


MOV 


7A 


O-JAN-78 
PARAMETER BLOCK 


103 


11:25 PAGE 34 


/<CFEMT! WRTCHK> 
ED DATA FOR TYPEOUT 


a em 


SEQ 0034 


<A>,DATAO,X TO OMIT CHECKING AO, BO, Al & Bl 


A,C,D,K, 7E, 7F 
#<A> HCS1 


PC, DATCMD 
1S 


K 
PC,GSTAT 


C 
11? 


#CERR,HCS1 


eWCE ,HCSe 


DBC RS) ,WD1 
¢, Woe 


F 


5° 
7,31 
sf8e 


0 
0 
S 


8H 
sotrs 
PC,DO 


G26 


a 


E 
Csi 


;D0 DATA X_ FOR C 
;NO RDY AFTER WRITE CHECK CMD 


;GET FRESH STATUS 


K 
#<CFMT!SELDRV>,HCS1 
PC, DOCMD 


& GET CONTR RDY 


;NO RDY AFTER SELDRV CMD 


;SEE IF WRITE CHECK ERROR 


OR PRINTOUT 
YPEOUT 


sACT 
>EXP 
> WCE 


ECTED WORD 


FOR 


AFTER WRITE CMD 


60,32,<AFTER WRITE CHECK CMD> 


;ABORTING BAL OF TE 


bt 


#<D.PIP!D.SPIN!D. OFF!D. VV!D. DRA> ,E.A0 
#<D. SPOK!D.CART!D.DOOR!D. BRHM!D.SSP>,E.Al 


;CERR AFTER WRITE CHECK CMD 


.A2,T.82,0 


S 


7,31,60,32,<AFTER WRITE CHECK CMD>,T.A2,T.Be,0 


; CAL_CMD & GET CONTR RDY 
‘NO ROY AFTER OFFSET CMD 


;EXPECTED MSG AO 


———— ee ee 
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1786 MOV #1,€.B81 

1787 CHECK 35,61,36,62,<DURING OFFSET CMD>,0,0,0 

7 A: CLR ESCA 

1283 MOV Fae see :SETUP TIMEOUT 

1791 JSR pc FatT2 -FIND ATTN 

1732 ERROR 34 :-NO ATTN AFTER OFFSET CMD 

? F.EAB <D.DSC!D.OFF> 

1735 CHECK 260, 261,37,40,<AFTER OFFSET CMD>,T.A2,T.B2,0 

1797 .ENOM OFSET 

1798 

17939 

1800 .MACRO EOPGM 

1801 

1802 SCOPE 

1803 CLR SESCAPE 

1804 MOV #1.$TIMES 

1805 MOV aStack, SP 

1806 INC VCT sINCR COUNT FOR # DRIVES CHECKED 

1807 cn DRIVS , $DEVCT ; BRE alt DRIVES PRESENT TESTED? 

ta NUDRV ‘EI se TEST NEXT DRIVE PRESENT 

1810 SEOP1: SCOPE 

1811 _ENDM GM 

18le : 

1813 :A= ERROR # 

1814 :B = ERROR CONDITION 

181 "MACRO OFFDIR A,B,7C,7D 

igi? MOV Re, RKASOF(RS) ;REFRESH RKASOF 

1819 IT #BIT7,R2 

1820 BAe C ;BR IF NEG OFFSET 

18ee cnP Re, CYLDIF :CHECK POS OFFSET 

1824 RROR :OFFSET IN A2 NOT = RKASOF 

‘ese BR 0 :B 

iBS> C: CMP R1,CYLDIF sCHECK NEG OFFSET 

1828 BEQ D 

182 ROR A :OFFSET IN A2 NOT = RKASOF 

1830 ;B 

1831 D: 

1832 -ENDM OFFDIR 

1833 

1834 -NLIST MD 

1835 


mem 


OO 
32 

ov 
bap 
mr 
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_ 


GBOUE 


UR Se sao 


Sob UAT ER Bowe 


Jeu zon 


S32 
SSE8e 


tras 


Been 


Soe 


Do bs bo be be he be be bb hb be bb be eb bb ee 
bane 

feos ba 

ruru 

a 

O00 
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-SBTTL COMMON TAGS 


53 SREKRKRKRARKRARRRRERRARAEES RELA ARKAAAKAAAAAARLAARERARAARAAAARAAARARAARALEE 
-&THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
;#USED IN THE PROGRAM. 


-=1100 
: ;:;START OF COMMON TAGS 


NTA THE TEST NUMBER 


; ;CONTA oR L 
TA ST ITERATION COUNT 


Be 














OR ERRORS 
TECTED 





Tota Canons 
HGONTAING BAX, ERRORS PER TEST 1 oy 
SIM RSE RY oe 

TINS 'BA" DATO 
: QUTONBTIE NODE INDICATOR 
ARBREEE OF RYU RSLEDTE 





80 
: 















4 





== 
aia = 










7 


7s. ff 8 2:1. @\ aioe 
Sessceeeeee 


Ao Coococess” OO0O0000O0 
2 
+ 
D 


0 
Vv 






se TTY 
-: TTY 
R 





T G. ADDRESS 






Liable ye connate PER 
ft AINS ans HARACTERS REQUI 


RED 
ERS att b7> cOsvES) 






“3 
Cees 


“we 
Des 






5e 


ee 
== 
ee he ee ee ee be ee ee ee 
444 
nee E RE: 
Th We 
a * 66 «6 66 66 66 
Oo: . 


+ 


F 
F 


+ ITERATIONS 
+ SCAPE RROR- ADDRES 
(207> <377><377> + Robe on BELL 
42/ 3s UES T ON MARK 
13> TINE FEED 
MUTT iri ittetitiitttiiitittttittittttiiititiii iii ttt tt 
-SBTTL APT MAILBOX-ETABLE 
s ,UUROUEDURERNEREOUEENEEEOEEEEEHESEHOREEEESEEEsEanenesEEeEEEEnE 


$MAIL: ;:APT MAILBOX 
000000 SMSGTY: .WORD AMSGTY :;:MESSAGE TYPE CODE 


bt be ba Pt Be Fo bP bm be bo be Re be bm bt es bes De be pee bie ee bee pe be es Pee Pee Pet be Pe Pee bee he RE ee 


PRESAIATT TOS OOS ESERREOUMEVUR LE ReOReS 


000377 





-— = = 
ala? 


- e2e-.: -|-2-— 


- " -- OO EE, Toe, TEE Se EE LT —_-— ——« oe - = - ~ =< 


em — ee oe - - 
- i --—_————— re OS eS e-em a 9)9 nn an 6: .s\____-——_—__ - 


kere Te UNIBUS RK DR_PRT MACY11 30A(1 11:25 PAGE 37 SEQ 0037 


Pil 10-JAN-78 09:43 APT MATLBOX-E TAG ABLE 


£fru 


;;FATAL ERROR NUMBER 
5 5 TEST R 
;;PASS COUN 





~ 
frururururu 
hp 










01 
51 23 77: 
901 se 
at ADC 
C TELT 0c 
Raises 900000 
i536 


aS : 





1 

ll pole 

5 Became: (HIGH BYTE) 
914 a 

aie S603 
$17 oO0l2e4%e2 

aig 

Bl 








EQUIPMENT Onis “TEST 
tortor WORD #1 


00 
: 
% 


B 


Ae 


ensnsneng= 


+" 4 


ee ae be ae ae Be hn ae be be ho be he eh ee 


Bz TROREREA INGE TROP TR DRE 





VuUVUUU 
AA A444 











b+ hb bb be be ee be eb sb P= bb bb bb bb bb bp be be pe be Pm pb be pe be be he be bo be bh be Pe bh bo Pm he hs BS Pe pe 


920 
Sel 
See 
2 
927 
358 
$30 
a2 Ot 
ee 
935 
3 
e 
$393 
zu 
Qy 
94 
944 
our 
au? 


901 000210 ae: iy ath BUNTROLLER” INTERRUPT VECTOR 
501 172540 PKS: Prep K STATUS REG 


cre a ee ee 
ee ee ee ee eee es — =< aanee = & - a eee OS a 


= ee eee - ~ 


ee ee ee eee ee ——__ = <<< 
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l 48 901322 172542 PKSB: 172542 :P-CLOCK SET BUFFER 
1949 O01 172544 PKRB: 172544 :P=CLOCK READ BUFFER 
ia 001326 46 LKS: 177546 *L=CLOCK STATUS REG. 
tees 881392 880188 Sve: 188 B-ELSEK INTERRUPT VEETSR, 
igez e004 MENGAS= {42100 RERORY PARITY SBtISR CSR START ADOR 
1957 000000 TRAPPC: O C FOR MEM CHECK ENABLE 
1326 paren. 8 SBP. 82° ATR FTucBPETEH Daocane TITLE 
13e3 —— 5 COR IV VO-BRIV? POP TRE DRIVE’ TO BE CHECKED NEXT. 
1368 001344 000000 FRCYL G ii. i VEYL 
1966 001350 909000 CCYL: 0O top ae USED IN N SQUARE TEST 
136 301 ; 0000 POY: 0 Pee “are D_IN N SQUARE TEST 
13e8 borsee BoopHD KOLBTE: B ALe ert FO OMT TUSTIFIED PROM REARS 
1870 001360 000000 CYLADD: O YL ADDR; RIGHT JUSTIFIED FROM RKMR3 
1374 001362 CALADD: O YL ADDR’ USED IN FHDTAB ROUTINE 
1973 001364 HZ: 60. OR 60 cps 
—— peanges 7 a at CMBER TO COUNT OFE FRACTIONAL SECOND 
1376 001372 + thie B ane RO IEATE TIME IS UP 
19 l SECNT: 9 ;SECTOR C 
ize) 931308 ESCie, § EXPECTED ae: 
138¢ 501 Far: EXP E R COUNT. RIGHT JUSTIFIED FROM RKMR3 
1984 001 Tl: l s TIMEOUT CONSTANTS : 
1366 301 T10: 20. 
1 ee Bi TSO: 0. 
1 90141 My TS00: 500. 
1988 501414 144 T100: 100. 
l 901416 eet T5000: S000. 
1930 001420 141520 T50000: Soood. 
tae 001422 77 CYL: 63. ;CYLINDER NUMBERS USED IN 
1933 oo14es 22 127. ‘CURRENT CROSSOVER TEST FOR RKO6 
1 5014 77 13. 
133 0014 77 383. 
1999 001436 000177 CYL7: 127. :FOR RKO7 
st 50144 a 583. 
901444 77 ll. 
se 1446 6393. 


——)e|— — awewe = - = 


--— 


— -oe- es ee — —_—  ——-— ee oe 
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2004 0014S0 001377 767. 
9006 o014S2 o00000 WD1: 0 s ACTUAL HEADER/DATA WORD 
| 6007 001454 000000 WD2: 0 ‘EXPECTED DATA WORD 
| e008 0014S& oo0000 OFFERR: O ;SET WHEN WRITE CHECK ERROR ON OFFSET 
2011 
edie HEAD: 0O - HEAD NUMBER 
201 HEADA: O ‘HEAD # FROM H.83, RT. JUSTIFIED 
014 1: 0 t CHIFTED HEAD# FOR FORMATTER ROUTINE 
2015 FORMAT: O ‘FORMAT TYPE 
2016 FMT1: O ‘SHIFTED FORMAT FOR FORMATTER ROUTINE 
e017 NT: O © WORD COUNT 
2019 DATAO: O sALL O'S 
2020 TAOL: S2eses -0101 PATT 
sok DATAL: 177777 -ALL 1°S 
DPATI: 133467 
DPAT2: 70627 


WORD: 0 TE OOER WORD FROM 
HOWD: 0 R WORD FROM RKDB 


PIMERR: 0 {LIMIT DETECT ERRON FLAG» re 


BYPCERR: 0 a. ob 1S BY CKCERR IN ’GSTAT1L’ 
CHKFLG: O RORDS T ST 


ree: Bl te ae § HERTS 


SRTTAB: .BLKW 66. Rati FORM 
gee 


feesry: fete qe se Fe Ie 


44 









as pe bs be bee Bros fea bBo hs be pe ee a 








T ROU 


ruruty 
QROQ9 


S88 888 S888 88 SssEs sssssE 


<= 





RRS EO 
S & Geees Ses 
8 8 S888 Ran 


inate SeURH SERS USNS 








40 BSEees: ‘BLK sb. T 
ay BB TAB: -BLKW 256. : FLCED BF AFTER READ 
20 UNLO: O :SET TO O F HEAD ARE LOADED 
4 : SET TO Oi F OADED 
S 007340 BADHDR: 0 -SET T F FORMATTING OK 
SET 19 , NG 
007342 oo0000 HPEND: 0 -SET T PE 
e048 ;SET TO 1 
2050 : THE SEONG 
>BY *STOP’ 
‘THE CPU TO A 
2054 
cose 7344 001 00 004 ATTN: .BYTE 1,2,4,10,20,40, 100,200 :ATN O-7 RESP. 
107347 010 02 40 
2057 007252 100 


e058 EVEN 


nm a eee oe ewe ele —- -— -- 


ee 






NNN 


wre 


Vou 


syrunueuueueneTey 
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CZR6IEO UNIBUS RKE DOR PRTe SES 00S9 


ee ee ee ee ooo a= 
























CZREIE.P11 10-JAN-78 09:43 ERROR POINTER TABLE 
Hee 
, : ERR . 
Hee 
;ERR 257 
012306 | 0 
ETE 
l 
;ERR 260 
012316 EM17 :MSG AO ERROR 
3064 O1sa5e bHe4 :AFTER OFFSET CMD 
Bis Drei 
;ERR 261 
‘ Ol 7 EM18 :-MSG BO ERROR 
1 DHe4 
l OT13 
a4 12334 OF21 
7 -ERR 262 
73 «#Ol 0 
74 Ol 0 
7S Ol 0 
26 012344 0 
( ;sERR 263 
28 12 0 
12 0 
3ha0 1 0 
012354 0 
;ERR 264 
1 0 
l 0 
1 0 
12364 0 
1 ? i =... MSG BO ERROR 
Bis e Bhiee OPTER DRIVE CLEAR CMD 
3031 012374 OSS014 OF21 
30 ;ERR 266 
93 0123 74 EM20 :MSG B1 ERROR 
l es DHee 
1 4 OT13 
36 l S014 OF21 
;ERR 267 
3038 012406 7 EM18 -MSG BO ERROR 
12410 053014 O0H39 -AFTER WRITE HEADER CMD 
3100 Ole4¥i2 054270 O0T13 
3101 O12414 OS5014 OF21 
31 :ERR 270 
3103 O!2416 O47415 EM20 :MSG B1 ERROR 
3104 Oje420 053014 DH39 


A AS — rT I i 


IOS 


11:25 PAGE 60 


SES 0060 


10-JAN-78 


ERROR POINTER TABLE 


MACY11 30A(10Se) 


O UNIBUS RK6 DR PRTe 
-Pil 10-JAN-78 09:43 


CZRGIE 
CZR6IE 


Chas 
bah A | 


ok G 


;ERR 271 


ea Ae A eh CCC LS et 


;AFTER RD. HOR. CMD. 


oom- 
0 


aa 


ae 
eeee 
ANE 
Lith 


;sERR 272 





oO 

= 

© 

a 

Oo lJ 

5 T 

= rr 
«% a «” c a* x 
Oo oO OJ © Ow oO 
ta a ca x ar a 
c> ta wo x te ta 
wad lad Jl lJ wig la] 

Go a 

Oo _ | | — | | comm) 
legs a zc ma @ lem! 4 az 

uJ uj la 
x fF & FF K BF 
> me 4 = La = > mes = 


~ os. KUNA CUM ORM OFM ROOM COM-- 
—tU = — “=U -1-4-y pee by —M——Yy —<™-<y 


Whatet WOOS, Wood Woo Goad 


WOO noo WOO 


; ERR ih 
;ERR ia 
;ERR ors 
;ERR 276 
;ERR 277 


es 


cha 
eee 


MOR = 


sued 5 
ie 


Reno > 
5 Sih 


Lee a 


;AFT RD HDR. CMD 


'Om-« 


;ERR 301 





;ERR 302 


047374 
84 
44 O0S5014 





t 


1 
1 
1 
1 


oe iene ion! —oataeas aan aniantiiitan ten kanken tates 
Ooo000 Oo8000 2000 oo00 O2000 2000 2000 
Sa ee UUUUUUUUUURMBOMMMOMM Ts I FF FFF FF UU 


pobebedeiutudedebetebuteaedenedabebededed ebetetetedenetetebebebenesetaauamatacatanssacanaa seas aera 
CDDP ODDO DOOD OOO OOOO OOO OOO ODO OI IO IOI IOI OI OI III MIM CICICICIOIOD 


- <=. -= —_— —_ 
ee ee ee ee oe -—_ — o<-—— a ~ eee i AA — ee 


—— ee 


— ———— << = ee 


- ef+e--  =- -- 


6 


OOD 
P 
ot 
m 


3 


LenEo-OoD Mm 


WWWWWWWWWWWWWW WW WWWWWWWW WW WWWWWW WW) WWW WW) 
P= b= be be eb ae ae Be be be be ae ne he pe be be be Be he ae ae ban be pene Be ae Be be Be ne bm ae he he be eo be he 


DD ITU LEV ODD VEU LOW VO Foe DD 


OOOOOOOO0O0000 A20000 






N 


scppeses 


ee OOO 





POrUrOrerOrD 


WW) 
ru 


-Pil 


For 
MO Le 


Re 


oh 


Re ey ee eer 


RUTUTURYRY 
Sure 


Bbo4a2 
7 
ie 
12746 
012746 
000002 


004737 


aii 


Ooo 
rp 
ruru 


O UNIBUS RK6 DR PRTe 
10-JAN-78 09:4 


000001 
001336 
pO ASS 

000 
012602 


O4ille 


001100 
001140 
001100 


ee 


NG) 
OO 
OO 
o 


S70 


MACY11 30A(10Se) 


001336 PARSRT: 


020 
00ee 
030 
nae 


. SBTTL 


START: 


PRGSRT: 


. SBTTL 


;; CLEAR 





10-JAN-78 
ERROR POINTER TABLE 


Be” 


5 ae CPU PRI 


CL.00 
fg We 





a me 


11:25 PAGE 61 


PROGRAM SETUP 


#1. PARAM 
BAGSRI 


PARAM 








STACK, SP 
: RO, -(SP) 
#1$,-(SP) 


PC,STKINT 






SERVICED. 


#STack 





X HUTERIUETS 


TY ove 





+ ERT PROGRAM 220 START 


LEAR FOR 
CLEAR L Int en PNABLE & INIT 


se TUP STORK Oe 


iLSiai 11 COMPATABL 
ALL INTERRUPTS 


sSETUP KB VECTOR ADDR, PRIORITY 4 
:& TURN ON KB INTERRUPT 


HANGE CPU PRIORITY TO LEVEL 6 (IN_’STS’) 
GPTS BILL CHANGE CPU PRIORITY TO LEVEL S_IN *SETINT*) 


SEG 0061 


TS WILL CHANGE CPU PRIORITY TO LEVEL 4 (SEE ABOVE) 


COMMON SCHTAG, Re (SCMTAG) 





tr 4 
#SWR , RG - + 


veCs C 


See 


FIRST LOCATION TO BE CLEARED 
::CLEAR MEMORY LOCATION 
pri THE E Sack POINTER 

CTOR FOR SCOPE ROUTINE 
VECTOR FOR ERROR ROUT INE 
Bo ecto FOR TRAP CALLS 
EVEL ek FAILURE VECTOR 


7 
os -PROGRAM COUNTER 
; OF ITERATIONS 








© wowe lee $n Fee 


LOOP AD 
OOP 


ERROR VECTOR 
-: SETUP FOR A HARDWARE SWICH REGISTER 


SISET 


~ a aS Bicareeea eae oe 


SS FOR SCOPE 
ESS 


a *SYSMAC’ TRAPS WILL CHANGE CPU PRIORITY TO LEVEL 7 (SEE BELOW) 


{SVSMAC *SETUP’ 
Ne ESRron THE COMMON TAG 

MOV 
LR 


OO 


' 
i 
| 














ZR6IEO UNIBUS RK& DR PRT2 MACY11 30A(10S2) 10-JAN-78 11:25 PAGE 62 SEQ 0062 
ZR6IE.P11 10-JAN-78 09:43 INITIALIZE THE COMMON TAGS 
3214 012766 012737 177570 001142 MOV #DDISP,DISPLAY ;;AND A HARDWARE DISPLAY REGISTER 
1S 012774 27 177777 166136 CMP 8-1, aSWR :: TRY TO REFERENCE HARDWARE S 
18 1Sh02 1012 BNE b6$ : : BRANCH NO TIMEOUT TRAP OCCURRED 
ig o1 03 BR 65$ sO ou ten TOT 
3319 Ee ? 013014 64S: MOV #6S$, (SP) °:SET UP OR TRAP BE TURN 
3eel 013014 0127 000176 001140 65S: MOV #SWREG, SWR ;:POINT TO SOFTWARE SWR 
<8 1 012732 74 001142 MOV aD ISP G.DISPLA 
¢3 l 1 66S: MOV (SP)+,a#ERRVEC ;;RESTORE ERROR VECTOR 
3eeS 01 121 CLR SPASS --CLEAR PASS COUNT 
3626 ie ie pbase 001231 BITB aRPTSIZE, SENVM fest USER SIZE UNDER APT 
3258 13050 13393 001232 001140 -. MOV #SSWREG, SWR btNO USE APT SWITCH REGISTER 
3230 13056 12737 13122 OO0004 MEMPAR: MOV #1$, ERRVEC ;SETUP TIMEOUT VECTOR 
3631 13064 012737 0340 oo0006 MOV #PR? , ERRVEC+2 
33 1307 701 172100 MOV ; ADDR MEM CSR 
1 il 3S: CLR ‘SEE IF CAN REFERENCE 
35 O131 12711 oo0001 MOV -SET ENABLE BIT IF YES 
3236 13104 18? 036656 000114 MOV #MEMERR MEMVEC ‘LOAD VECTOR IF NO TIMEOUT 
32 1 Le 12737 000340 000116 MOV #PR7, MEMVEC+ 
3238 131 1 BR es 
131 1$: CMP (SP)+, (SP)+ sADJ STACK 
1 131 Gh o9go02 2$: ADD #2,R1 -TRY NEXT CSR 
seve ii l 172140 cnP Ri, #MEMBAS+40 -SEE IF TRIED ALL 
44 0131 000006 oo0004 MOV #ERRVEC+2, ERRVEC’ sRESTORE TRAP CATCHER 
32 013144 000008 CLR ERRVEC+2 
131 7 1 JSR PC, CLRFLG ;CLEAR DDUMP THRU SIZ°LG 
32 O13184 ppena? bai S86 CLR SDEVCT 
13160 005037 OOl2ce CLR SUNIT 
SFIND OUT IF XXDP, ACT, APT; CHAIN OR DUMP MODE 
13164 737 oooo4e STARTI1: TST 42 
131 1015 BNE i$ :BR IF AUTO 
1317 73 G3 706 JSR PC, TITLE :MANUAL, TYPE PROG ID 
13176 i 377 41 000013 chPE 41’ #13 :13=LOADED BY XXDP 
132 37 007464 INC DDUMP :SET RKO& DUMP MODE FLAG 
1331 B8a0 044307 TYPE ,MSGe i REPLACE ORO PACK W/SCRATCH & DO<CR> 
1 01 32 MP ste ; 
13224 000137 013300 1$: IMP ST3 
013230 005237 007472 2s: INC PPTP sSET ACT/APT/PTP DUMP MODE FLAG 
I CHECK IF ALL PARAMETERS DEFAULTED. IF NOT, BEGIN INPUT DIALOGUE 
*WITH OPERATOR. THE REPLY TO "DRIVES TO BE TESTED’ SHOULD BE 


meee —_— - Se ee ee * - 


mm a a a RR a 
—_———- Ee —-—_ eo —s 


LOS 
STREET BGaneze os:us | PCY) SPRETPRCI ze Fae Common tacs meter 









a RIVE NBS: SEPERATED AS GO"YEEIBOTEMTIOAIERAEY “om 
327 005737 001336 ST2: TST PARAM on 1 ge0 stent 
3276 B01 37 013332 . IMP Sty 500 ST START,  gVEFOULT 8 SIZE THE BUSS 
: a ny SR 

? 1 yy TYPE mSG4 BUSS ADDR 


Oooo oOoOoOo0o 
a ee pe 


SpeniRaeS 
















3280 737 O3e2le JSR Pc. GBA GE BA 
4 1 pa TYPE Hoe ig NT INT VECTOR 
7 32154 JSR PC GINT T INT VECTOR 
? B sts 
3284 
3285 
aces T T FLAG NPUT DIALOGUE. 
3288 a F ek PRaRE a OR eT HENLY fHOSE Bg ives THAT ARE EADY 
3291 z 
13300 123727 O000041 000013 ST3: CMPB 4h, #13 -13=LOADED BY XXDP 
35aq 013308 eeyt 74 ONG ~n RKOG CHAIN MODE FLAG 
3595 13314 004737 03170b 36 rene , 
9% O01 1 Ht 4604 TYPE ;DRO NOT TSTD 
3297 Ol 0004 BR ata 
ae 013326 37 007470 1S: INC ACT :SET ACT AUTO FLAG. 
1 127 77440 001264 ST4: MOV #177440,$BASE ;DEFAULT VALUE 
3301 15385 815737 boo2i9 O0lSi4 Rov BeIO,AKVEC DEFAULT VALUE 
3303 013352 poeoa 7524 INC SI2FLG :DO “SIZE THE BUSS” TEST 
3 1 STS: CLR ; INITIALIZE FLAG 
3308 i . CLR USE D van +E OB: BOUTINE 
l CLR ID PROGRAM HALTS 
3308 Ol CLR 
1 CLR Suen RKO7 FLAG 
i 1 MOV #ORIVO,ORVPTR 
it 1341 CLR SDE VC 80, 0 OOF DRVS DONE 
a8 Bla Gy Hi Znmvec SUR TaRe but Eaton aecTon 
3318 134 1S KS SEI IF L-CL cK T THERE 
318 1 35 MOV LCVEC,RO : PRESEN rope! F 
1 i rey ses  ERRVEC F P-CLOCK THERE 
se Bln Fe BRE fn SEPPK Bs 
1 MOV PCVEC,RO : VECTOR 
3321 013464 BR 3$ 
3 Ol 2 1S: CMP (SP)+. (SP)+4 sL-CLOCK NOT THERE, CLEAR STACK 
33 4 bt 34 BT5555 013534 oo00004 MOV #4$. ERRVEC 
3325 013476 005777 165616 TST aPKS :SEE IF P-CLOCK THERE 


- — . —— oe ee ee eee . 


— <2 - oe ewe oe ee ee ee ee oe ee — ———— - 


CZR6IEO UNIBUS RK6 DR PRT2 
CZR6IE.P11 10-JAN-78 O09: 


7 


G13532 BBESEh 
Biases $Bee8 





43 
013526 000407 


752 
4514 


MACY11 30A(10Se2) 


3$: 


2s: 


4$: 


——=—Eee ee ee oe ee 


10-JAN-78 11:25 PAGE 64 
INITIALIZE THE COMMON TAGS 






PCLKF ;PRESENT, SET FLAG 
PCVEC,RO 


: VE 
Sapte ROIeaTES | MING TESTS CAN BE DONE 
ge (RO)+ 28 VICE OUT INE FOR CLOCKS 


PR6, (RO) 

TSTl ::GO TO NEXT TEST 

(SP )+, (SP)+ -P=CLOCK NOT THERE, CLEAR STACK 
(SP)+, (SP)+ sNEITHER CLOCK THERE, CLEAR STACK 


nMSe3 MONG AT REer Bip easeB CONE: 


SEQ 0064 


TT TTT ETE TTT EE EE A TT TTT me me ee a ee el _ 


— —_— : —_— ee ee a A RN 
rm 


OS 


CZR6EIEO UNIBUS RK6E DR PRT2 MACY11 30A(10S2) 10-JAN-78 11:25 PAGE 65 SEG OO0ES 
CZR6IE.Pi1 10-JAN-78 09:43 BASIC CONTROLLER TESTS, SIZING & SETUP 
reat! .SBTTL BASIC CONTROLLER TESTS, SIZING & SETUP 
3 43 ; Ta tame EE a gg pecan 
3340 ; ATES REFERENCE ALL CONTROLLER REGISTERS 
3346 tx as TEST VERIFIES Mal not THE CONTROLLER REGISTERS 
3347 + N BE ee ee NAS Ths ITY TO BE ACCESSED WILL 
3348 of Se CuL T In. + IMEOUT TRAP WITH AN ERROR MESSAGE. 
3349 : i RROR IN THIS TEST WIEL RESULT ON N_ABORTING ALL OTHER 
320 H ESTS AND JUMPING TO ’END OF PASS’ 
3352 STITT TTT TT TT eT Tt ttt tet ttt ttt ttt ttt tt ttt ttt titi tttitt 
353 013546 000004 téT1: SCOPE 
354 135S0 012737 OO0001 001174 MOV #1,.STIMES : 1 ITERATION 
3358 013556 012706 001100 MOV aSTACK, SP the CORE STK PTR 
3357 Bi 2206 012746 oo0o000 MOV #PRO, -(SP) sRESET PSW TO PRIORITY O 
33 13566 012746 013574 MOV #S$,- ~(SP) :& MAKE IT LSI COMPATABLE 
3359 Bi zece 000002 RTI 
3360 13574 cs: 


ee eee oe —- —_-.- -_ —— ~ RS a a 
SE ee em 


ee ee eee ee ee ee 


STIPE SS PETE gg MOTTE MPRCIOEEY 


3362 013574 012737 013720 000004 


Lnsatentninnatieehenenvenensemmnniadmmedisnmtisins ~cutpigenie- <eiieipanapbitamicaete <n ae 


me er ce 


MOV 


APRENCE ALL uaharise REGISTERS 


#1$,ERRVEC 


;SETUP TIMOUT ERROR VECTOR 


gaa W 


Ot 


te: 
3 
74 





eet pica SERERPR 


Loh 





peheneeer tyre 


SEPtPELeeeeeteee 


bb bh ee 
ONC uN cWwre-O 


_P 


seo 





i 


 SaRORE 


Oe he ee be he he eb ee 


aay Sy 
NS FS 








UNIBUS ag oe 
10- aN-78 0 


B12 737 


012706 
00S237 
132737 
001002 
000137 
95 
a 
012701 


243 





7 
031Sle 


000001 
001100 


001516 


000200 
014100 


044713 
007474 


007476 


MACY11 1 BEL th REcISTERS 


000004 
000006 


001174 


001231 


SETUP INDEX REG. 


SERS) ESAHRECEe hcl 


sTIMEQUTS IN THIS SECTION 
: INDICAT T THE CONTROLLER 


TESTING SHOULD. NO PROCEED 


;UNTIL THIS IS REMEDIED. 








mcgcee ee} 


#BADTMO, ERRVEC 
#PR7 , ERRVEC+2 
TSTe 





;SETUP TIMEOUT HANDLER 
:;GO TO NEXT TEST 


sRESTORE STACK POINTER 


1$: 
: ABORT -COULD NOT REFERENCE CONTROLLER REGISTER 


(SP)+, (SP)+ 
SEOP1 





~ 3  -  E  0b b  0 a  0 a a a  a a a a aa 
Te SIZE THE BUSS 









a TEST IS ENTERED ONLY IF "DRIVE SELECTION’ IS DEFAULTED 
R ING - THE pogiaem MODE OR A 200 START IN THE 
S 


ite 
th NG peers Port. if ACCE 


Wilts Barc wees Sasa Xcite Ee 


- T 
ere WILL BYPASS 





5 RC Ee 





+éT2 Cc 
MOV #1 STINES : ITERATION 
MOV eSTAcK, ‘ RESTORE STK PTR 
INC BYPCERR :D0 NOT TEST CERR IN ’FRDY’ 
BITB #8177, SENVM ;SEE IF USE APT SELECTED DRIVES 
BNE 14§ -BR IF 
IMP 12S *ELSE DO NORM SIZING OR VERIFY 
14S: TYPE MSG10 :WILL TEST DRIVES 
CLR bRIVS : # aPRIVES PRESENT 
€LR ‘ORV ADD 
MOV #ORIVO,R1 ‘ORV FLAG 





- _——_ — —— - eee 














CZR6IEO UNIBUS RK& DR PRT2 





MACY11 30A(10S2) 
Te 








10-JAN-78 
ZE THE BUSS 












11:25 PAGE 68 




















CZR6IE.P11 10-JAN-78 09:43 SI 
3 014002 013702 001266 MOV SDEVM, R2 ;APT DEVICE MAP 
i o1 Db 1SS: BIT #B1TO,Re :SEE IF DRV IN DEVICE MAP 
He ft Re hs APSE Bi arnt Ia 
Hee 81 apse move otSP) fig RO FOR. TYPEOUT 
ee: ee bod Tpit fe fer 
3430 l ‘BYTE O + SS LEADING ZEROS 
16S: TST R1)+ NTER TO NEXT FLAG 
an Be a ee ag 
35 O14044 BEQ 17§ -BR IF YES 
ee p14ouG ROR Re ELSE CEL NEXT BIT OFF DEVICE MAP 
ato p1 405° 007474 17S: T ! ORIVS ;SEE IF MORE DRIVES PRESENT 
sive 014060 014SS4 IMP VERIFY -ELSE EXIT TEST & SETUP FOR RKO7’S 
S Bisaee -~ SO PBTUERAERMS E"oRPEY" conta: 
46 014070 000137 013356 IMP STs -TO TRY AGA 
7 014074 000137 014554 20S: JMP VERIFY :DO NOT efe ' N 60 TO NEXT TEST 
sf 914100 0 12S: MOV aSCLR,RKCS2(RS) ; SUBSYSTEM H CLEAR 
ie ee ae a fear ine 
sues Biuidd ERROR 1 Y NO “get BY END OF SCLR 
aa 141 er sigs ; 
4 O14 : 
Be: SPE 10 tite TEST ORIVES 
S56 11 CLR ORIVS ;@ Dav aboe PRESENT 
358 isiae Vv sORIVO,R1 : BV 
141 1$: 
3460 014146 SCOP1 
zee 014150 V eSTACK, SP sRESTORE STK PTR 
a BISIES may FHLRERWTSECR™ HLA ED PLE 
S4ee 1a z ROR SA RO RAY NOT SET BY END OF SCLR 
3467 14176 MOV RO RKCS2(RS) ar att THE DRIVE ADDR 
ze BIS Be ROR as 1609 SPE ™O” 
3471 O14224 MOV TS0000, TEMP1 
sis Rises EE RE  edepmatbad pecan 
3474 014244 JSR PC, FRDY :FIND RDY 





AT ——_- = —_ —-——- 


LEE LLL TT em me 


cSReie. 


Hauaaaaabeteeeseeret ett tt: D-OBONOU | 





suture 


Pb fs peo bY f= = he 


NOU £Wture-O 





CHUN 


eee 





3$e9 
3530 





O UNIBUS RK 
l 10- 


Pl 


0 
0 


iLL 






R BE ade 


ZSEEELSL ££ ££££ ££SSSLILLSLI£ 







<= 
<= 





Por 


EEEE FF 


z 


1 
i 
1 
A 
1 
1 
1 
1 
j 
1 
i 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
A 
1 
1 
1 
i 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
& 
1 
i 
1 
1 
1 
1 
i 
A 
1 
1 
1 
1 
1 


fs i 
hs 











ane -78 dee “43 


if 900 








007474 


1208 


033026 


800010 


007474 


i S358 
0 
00 
14146 
001000 





033026 


cendielinn Vemma 


007354 


00741le 
007412 


007370 
001170 


007356 
007356 
007366 
007356 


4§: 


3$: 


Ss: 


2s: 


13$: 


6$: 


7$: 


Zon abaz 


size 


So<m— 


po 


naa 


3 


SP5a Sy Sai 
408% 34 72 
$F 






~+ 
w 
+ 





— 


eet Se ee 


me correc 
By DDw 


ROR 


JAN-78 
THE BUSS 


l 






17 
_— 
HMRe, TEMP 1 


a1C<ORVASK> TEMP 1 
RO, TEMP 1 ;S/B SAME 


;SEE IF XXDP CHAIN MODE 


11:25 PAGE 69 


;NO RDY AFTER SELECT DRIVE CMD. 





- TY S OR 8 
SRT TT N DR # DOES NOT MATCH RKMR2 DOR & 


PRESENT FLAG 


F RKO7 


FOR TYPEOUT 


IGIT(S) 
S 


ASCII 


LEADING ZEROS 


; SHIFT “x TO NEXT OR. FLAG 


‘CLE 


RKO 


7 FLAG 


;MORE LEFT. 


See CORRECTLY allen: 


* CONT INUE * 


ORY 
TRY 


AND PRESS 


COT 
AGAIN 


; TYPE BYP DR & 
‘MDS DETECTED 


;UFE DETECTED 


SEG 0069 


mm 


OND 


me mm TO, TEES LT TT TN CL TT mm 
ee se ee” 
























ZREIEO UNIBUS RK& OR PRT2 MACY11 30A(10S2) 10-JAN-78 11:25 PAGE 70 SEQ 0070 
ZRGIE.P11 10-JAN-78 09:43 Te SIZE THE BUSS 
014510 000720 BR S$ 
737 010000 007356 8S: BIT #NED,HCS2 
16 BEQ 4§ 
O4a01 O04S266 YPE MSGIS. 
MOV RO, -(SP 198 RO FOr TYPEOUT 
104403 TYPOS 5 1 GO --  -OCTAL ASCII 
35 BYTE + PBRESS. CE AOTNG ZEROS 
4 10401 ERROR 10 8 NED BB TH SET 
34 000705 BR S$ 
yy 004737 033026 9S: JSR PC, BYP 
3245 104004 ERROR 4 ;NO DRA & NO NED = OTHER PORT SELECTED 
46 701 BR Ss 
324 000137 0O1S5146 10S: JMP NUORV 
48 VERIFY: 
220 : i SonsGuenenaenecseseenssvessssegsusatonsssessageceneccensccesccs 
3562 ; AT 3 FY OPERATOR DRIVE SELECTIONS 
35 4 TH 3 re PD. i ENTE TION NOT 
3S r eI sO ee ae 
3556 : 3 15 Pre ENT_AS AN RKOG 
3557 ;* an i 
; # q 08 BOTH 
-% PF J ig T OF 
; at} ibe HE INPUTTED INFOR” TO 
; git f a WILL BE TESTED AS AN RKO7. 
+ 


erences 









tte s ta St 





14SS4 613 Cc 
14SS6 012737 000001 001174 MOV STIMES igs TERAT ON 
14564 MOV act K, hes 
14S CLR : DR 
ive - MOV #ORIVO,R1 PERG 
l LO4W15 SCOP1 
327 1 l MOV eSTACK, SP sRESTORE STK PTR 
74 Ol 1 MOV aSCLR RKCS2(RS) ; SUBSYSTEM CLEAR 
325¢ ivele BIS? MOV T10, TEMP SPST ME out 
3576 1 737 ISR pe ERBY : 
j 04 ERROR *-NO RDY AFTER SCLR 
1 l MOV ‘DRV ADOR 
1 MOV 
146 737 BIS sADD COT IF RKO? ™ 
1 O1M%6 13765 MOV -GET STATUS 
as 146 3737 MOV ‘ 
a l ? JSR :D0 DELAY TO CATCH MDS 
326e DINETS Ao WSR FIND RDY 
3586 014700 104117 ERROR ‘NO RDY AFTER SELECT DRIVE CMD. 





cSReIE. 





UWA MAA 
PAL 


saw GRnv Renae 









PRR RRR 
NOU wre 


at ee Bee ff Pe ee 








O UNIBUS RK 
Pil 


me? 
PPAR NSS 
sak: 









SELL £L£ELLLLE 


7 
77 
774 


BASRERLEES eee ORS 


sue Fh 


ae [rd pb ee bee be ee 
ene 
ro 


nwo ww mow! (Uw! 


2ho 


Oo 
_— 
uw 
~ 
cn 


10- 


— f= 





i ee 


et 


‘ 


SaRaR 


AN-7B 8 05: :43 
100000 


007402 
baraie 


001170 








1170 
10 


033026 





033026 


033026 


033026 


033026 


MACY11 oe 


007354 


00741e2 
00741e 


007370 
001170 


007356 
007356 
007366 
007356 


007356 


11$: 


4$: 


3$: 


12$: 


13$: 


8s: 
10S: 


6S: 


7$: 


9$: 


VEATF 


NE 
MOV 


~~ 


moOmMmmM 
min 


+ 
wm 


alg hate tia 
o-+o+ Oo-4 


83g 33 
5 & 


ERR, HCS1 






TYE, HER 
sCOT, STMP4 
i$ 


#MDS ,HCSe 

6S 

+ teegemery 
2 A,HOS 

#NED,HCSe 


185 css 
11$ 


(R1) 
4$ 


PC,BYP 
12$ 
PC,BYP 
e 

les 
PC,BYP 
les 
PC, BYP 
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GO6 
yPOPERATOR DRIVE SELECTIONS 


: SET OT IF RKO7. 
IF PT TO NEXT OR FLAG 
-CLE eor FOR NEXT DRIVE 


sMORE LEFT 
rte TO NEXT TEST 


RY BYPASS DRIVES 
‘URI TTEN DR# DOES NOT MATCH RKMRe DRe 


;BRANCH IF NOT C BY INPUT 
s De CRE NENT TOTAL DRIVS 
AR DRIVE FLAG 






ADD CDT 
; TRY AGAIN 


; TYPE BYPASS DRIVES 


; TYPE BYPASS DRIVES 
-MDS DETECTED 


;UFE DETECTED 


SEQ 0071 


em —- 
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001516 
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001170 


10-JAN-78 11:25 PAGE 72 
T3 VERIFY OPERATOR DRIVE SELECTIONS 


BaROR log ;DRA & NED RESET - OTHER PORT SELECTED 


‘TH S PART OF THE PROGRAM WILL BE REPEATED FOR EACH 
‘DRIVE PRESENT 


i USNAT CONTAINS THE ADDRESS OF THE DRIVE CURRENTLY 

























NUDRV: CLR BYPCERR ENTER HERE FROM LAST T we ae 
CLR ss STMPY SOtERR Riko? FLAG 
; eee eee ee eee LT At hx ae !|!U!U!FC:C:::C:*~S~:~S 
; ATE T4 FIND NEXT ORIVE TO BE TESTED 
+ THIS TEST FINDS THE NEXT _D DRIVE PRESENT 8& PUTS T 
+ i ADDRESS IN ’SUNIT’ & is SET TO COT IF OR VE. IS RKO7. 
: a THROUGHOUT THE FOLLOW NG O TE S, HE DRIVE TESTED IS 
; THE DRIVE WHOSE ADDRESS IS SUNTT 
A Nr an avaen tidiis anh Semeenes a 
MOV #1. STIMES TERATION 
MOV we TK, PS TORE STK PTR 
MOV TN-1 STERN 
MOV eSTN-1 
TST ae sANY DRIVES PRESENT? 
BNE 4§ :YES BRANCH 
TYPE MSG27 ‘ALL DRIVES TESTED 
IMP $e0Pi -NO, GO TO END 
ug: MOV ORVPTR,R1 sADDR OF NEXT DRIVE FLAG 
rst SDEVCT’ 1S BRST BAI ve BEING CHECKED 
1$ INC SUNIT ; INCR BRIVE ADDR] TO NEXT DRIVE 
2$ ST (R1) ;1S ORI 
S$ ; off YES 
rs (R1)¢ : FIND NEXT DRIVE 
S$ TST DDPCH ; DOP CHAIN MODE? 
BEQ : I 
TST SUNIT ‘ELSE SEE IF ORV O 
BNE :BR IF NO 
TST(R1)+ ‘ELSE FIND NEXT DRIVE PRESENT 
3S: BIT BCDT, (R1)+ ; SEE | IF DRIVE UNDER TEST IS RKO7 
MOV BCT STMPY a8 T RKO7 FLAG 
6S: MOV 1.ORVPTR TORE POINTER TO NEXT OR FLAG 


Raoécis 


ee __— ee = 


SES 0072 


OD 


I06 

























NN 


ert TTT it ti ttt iti titi titi titi ititititi tities irre res 2 
;*#TEST S PRINT DRIVE SERIAL 






: & 

;* 

. THIS TEST RE & PRINTS T DRIVE RIAL # FROM MSG A, WORD 11 
;* 1s eS Y 


IEO UNIBUS RKE6 DR PRT MACY11 ye eeee! 10-JAN-78 It: PAGE 7 
SREIE Pil LOS TANC7B 05:43 4 FIND NEXT DRIVE TO BE TESTED — os 
l 13700 O01222 MOV SUNIT,RO 
ae pi2338 Btao4e MOV RO, -( SP) BE ht ge FOR TYPEOQUT 
7 1 1044 TYPOS 5 3 GO TYPE -- 
7 1 .BYTE l es yin 1 DIGIT(S) 
, l .BYTE O 8 S LEADING ZEROS 
370° : TYPE , SCRLF 
7 01 005737 TST STMP4 ;SEE IF RKO7 UNDER TEST 
708 1 om 19 7 BNE 7$ -BR IF YES 
71 l MOV #632,LC sELSE LOAD RKO& PARAMETERS 
1 1 CLR E.D0T 
71 | 1 MOV 
71 1 1 MOV # 
3714 1 4 127 MOV 
716 01 e es BR »;GOTO NEXT TEST 
71 1 1 456 O1S434 7S: MOV sLOAD RKO7 PARAMETERS 
fis 1 iG 1 Bt euse MOV 
7 1541 le7 15436 MOV 
32 1S416 12737 001777 Batis MOV 
7 154 7 140017 15442 MOV 
37 154 BR ::GOTO NEXT TEST 
37 1S4 000000 LC: 0 sLAST CYL 
3725 ieuse 000000 MCl1: -MAJ CYL + 1 SHIFT 
3758 1e9 BO0000 MASK: 0 
1S44 900000 MASK1: OQ 
37¢8 1S444 000000 E.00T: O -EXPECTED DRIVE TYPE TO E.A0 
oa O1S446 PFSRT: -ENTER HERE FOR POWER FAIL RESTART 
3e 
3 
36 








3 
5 
37 , IN BCD & IS PERFORMED ON T ONL 
3737 2. 26-26 96 26-96 95 96 96-26 M6 OE BE AE HE HE RE MEME ME MEME AE AEE EERE REE EEEE ES 
3536 pieuec 0001 001174 1ST: ROY A. STIMES 1 ITERATION 
3740 pt 2ueE 01160 MOV eStAck, SP t AES TORE eer PTR 
374 1S462 001216 TST ass 
1 466 001 04¢ sve ::GO0 TO NEXT IF NOT FIRST PASS 
154 904737 O34214 JSR PC, SUBCLR -O0 SUBSYS CLEAR 
015474 ERROR 24 -CERR AFTER SCLR 
1S4 TYPE MSG16 - DRI RIAL NO. 
18508 1766 aitatetete 000026 MOV 83, RKMRICRS) SELECT Byte 3 
1551 ? 033664 JSR PC’ GSTAT STATUS 
15514 013701 7402 MOV 1 : GET SERI » 
1 Le? 2614 MOV #SOCTVL,R4 i GET HAR BUFF 
155 104 MOV R4, -(SP) ‘STORE ON STACK FOR S$SUPRS 
015526 012703 oo00003 MOV #3'R3 ‘SETUP CHAR COOUNT 
015532 006101 ROL Ri : INITIALIZE BIT POSITIONS 


ee ee ee o—-— 


OD 


JO6 

















ZREIEO UNIBUS RK& DR PRT2 MACY11 30A(10S2) 10-JAN-78 11:25 PAGE 74 SEO 0074 
ZRGIE. 10-JAN-78 09:43 TS PRINT DRIVE SERIAL NUMBER 
755 ROL Ri 
736 1$: ROL RI :GET NEXT 4 BITS 
73 ROL Ri 
? ROL Ri 
75 ROL Ri 
260 MOV R1,RO :GET WORKING COPY 
177760 BIC #177760,RO -CLEAR ALL BUT LOW 4 BITS 
37 000060 BIS #60 ‘CONVERT TO ASCII DIGIT 
3763 MOVE RO, (R4)+ *-PUT ASCII DIGIT INTO CHAR BUFF 
3765S BNE 1s ;BR IF ALL 3 CHARS NOT DONE 
are? CLRB (RY) ‘ELSE INSERT NULL TERMINATOR 
043062 JSR PC, SSUPRS - TYPE 
3768 TYPE , SCRLF ’ 
3770 : TYPE , SCRLF 
53 REKSKKSAKSAKRSEARSASRSASAARAARKRERAAAASAASRAAAAAAAAAAAAAAALEAAAAAARALARALRE 
; ATEST 6 SET VV WITH PACK COMMAND 
: a IF VV IS RESET, THE PACK COMMAND IS USED TO SET IT. 
- REKKEKREKEKRSRELESRHARKARASRAREARAARAAAAARAAAALAAAERARAAAALAAARAARALEE 
1 000004 tSts: SCOPE 
1 12737 000001 001174 MOV #1,STIMES ;:D0 1 ITERATION 
l 12706 001100 MOV aSTAcK, SP ‘RESTORE STK PTR 
1 737 O34214 ISR PC, SUBCLR 
l OBdaS4 ERROR 24 :CERR AFTER SCLR 
1 737 ooo100 007402 BIT #0. VV, HMR2 
l 1021 BNE TST7 ;;GO TO NEXT TEST IF VV SET 
15626 104415 SCOP 1 
15630 012706 001100 MOV eSTACK, SP sRESTORE STK PTR 
15634 004737 034214 ISR PC, SUBCLR 
bieeae 104024 ERROR 24’ :CERR AFTER SCLR 
1564 27 000003 007354 MOV 
01550 Bago 35 032224 ISR :DO PACK CMD & GET CONTR RDY 
15654 104116 ERROR :RDY NOT SET AFTER PACK CMD 
Ot Sb 932737 000100 007402 BIT . 
15664 1001 BNE TST7 ;:GO TO NEXT TEST IF VV NOW SET 
O1S666 104027 ERROR 27 -PACK DID NOT SET V.V. 


VERIFIES THAT CYL 632 (14S6 FOR RKO7), TRACK : CAN BE READ. 
AINS BAD OR INFO WHICH IS WRITTEN BY THE 
NG MANF. ALL BAD SECTOR INFO (BSE) WILL BE STORED 

TO MASK FUTURE READ HEADER OR DATA ERROR PRINTOUTS. 
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001:00 


034214 


1 
33664 





032634 


Ooizee 
leee 
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032224 
032602 


034214 


007414 
007416 
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1406 


KO6 


10-JAN-78 11:25 PAGE 75 SES 0075 
READ & SAVE BAD SECTOR INFO & TYPE PACK SERIAL & 


SECTORS 0.2,4,6,8 CONTAIN IDENT FOR 22 SECTOR HARDWARE TECT D BAD 
SECTORS 10, le, fa 16, 18,20 extomebag sine INFO FOR 22 SECTOR DETEC ES 
SECT 1,3 TAIN DENT CTOR HARDWARE TECT D BAD 

see Tone i188, a a A toeNT ice che" I 0 FOR 20 SECTOR DETEC ES 


F NT CAAT Tbe 18 USE THE — INFO 





tr $8 pe 
Set ORMAT.A 5 a, ae aon | tals BYPASSED. PACK BY WRITING 


THE PACK SERIAL # IS TYPED IN OCTAL & FOR THE FIRST PASS ONLY. 





“gl | IP oemeror que pene w 












MOV #1 STIMES : ITERATION 
MOV astac ‘AES TORE STK PTR 

JSR °C. SUBCLA 

ERROR 24 ;CERR AFTER SCLR 

MOV 

MOV 

MOV 

JSR :DO RECAL CMD 8 GET CONTR RDY 
ERROR :RDY NOT SET AFTER RECAL CMD 

MOV #1, RKMR (RS) :SELECT WORD 1 

JSR PC’ GSTA 

She <i , HMR2 

ERROR :RTZ NOT SET DURING RECAL CMD 

MOV 10 TENPe j SETUP TIMEOUT 

ISR PC ,FATTI -FIND ATTN 

ERROR *NO ATTN AFTER RECAL CMD 

MOV (RS) 

MOV (RS) ;DRIVES 

ISR :DO DRIVE _ CLEAR CMD & GET CONTR RDY 
ERROR : -NO RDY AFTER DRIVE CLEAR CMD 

JSR PC, TSTATN : TEST FoR ATTN 

ERROR 154 sATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
ISR PC, SUBCLR 

ERROR 24 :CERR AFTER SCLR 

CLR TEMP2 ;SECTOR CTR 

CLR TEMP3 :O=22 SECTOR HARDWARE DETECTED TABLE 


-—_----- -_——>  — — -- — - 


-< ee ee ee ee OT TTT TEE ETT EE LL TT me em ee SN mm me me ——_— Le en 
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3867 
a 
aec9 
“ 
ce 






ee 





Wire 








rtecteteted 
Daou) 
CO COCSOCCoo ca 


ee — 


SOL INEONITO 


bh he bh be he bh hhh he he 


OoOoo0000 OC0O0000000 2000 
POROFORO FORD 
EN82 TO 


ELLE Pacer errr Sry itad 











OI 
1 
1 
01 
Bt 
1 
Ol6e4%e 004737 034214 
016e4%6 1040 
i 7414 
4 7414 
1 1023 
016264 737 007416 
Oles7e 104 
l6e7e 1 
nt 016274 000430 
1 1 007416 
12 1 
33913 Ol 
sate 01 
ig 1 007416 
13 Ole 62 
3918 Ol 
3919 Ol 
3920 
3921 016326 104231 
3$9ee 016330 O0041e 





LOG 
MACYAT SOR‘ 1OSE) peAD & SAVE BAD SECTOR INFO & TYPE PACK SERIAL # 


007420 
004 
742e 
000006 


007444 
BB pues 


por? 
90746 


oooc00s 


000001 


00000e 


1$: 


es: 


4$: 


6$: 





;1=22 SECTOR SOFTWARE PETE 
5-55 SEETOR SOFTWARE DET 
‘STORE 22 SECTOR HARDWARE BSE ADDR. 
;TRACK 2, SECTOR O 


#BSE22H, TEMPY 
TEMPY , RKBACRS) 
#1000, TEMPS 

TEMPS, RKDACRS) 






sLAST CYL 
*LOAD WORD CT 


R RERPAPALR RURAL ERT FPY 


*GET FRESH DATA 





;CERR AFTER READ DATA CMD 
#<0!D.SPIN!D.ORDY!D.VV!D.DRA>,E.AO ;EXPECTED MSG AD 


|B SPOK!D.CART!® DOOR O BRIM! DUSSP>.E.Al_ EXPECTED Al 
Seen oeR Tee OTTO EBREXPECTED’ MSG BI’ 


#1.€.61 R 
ae Ege Meg JD FOR EXPECTED NsG B 





Ae * EXPEC 





PC, CHKMSG s CHECK Al, Bl 

p00 jgcrSGs SPECIFIED HERE. DATA CMD 
a fet BP Eaeoe 

38 mee Bl ERROR 


PC, SUBCLR 
24 ;CERR AFTER SUBCLR 
;READ ALL S SECTORS? 


;CANT READ SECTORS 0,2,4,6,8 
;CANT READ SECTORS 10,le... 


sCANT READ SECTORS 1,3,5 ... 


31 ;CANT READ SECTORS 11,13,15 ... 


SES 0076 


~- ——~ ea eee eee 


ee 


MO6 
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CZREIE.P11 10-JAN-78 09:43 17 READ 8&8 SAVE BAD SECTOR INFO & TYPE PACK SERIAL & 
3 
3353 01 007420 oo0004 SS: TEMP4Y,RKBAC(RS) ;RESTORE TABLE ADOR 
3925 Ol 007422 it Cc :READ 2 SECTORS FROM LAST 
a i 422 O00006 T , RKDACRS) 
O1 3S: BSERR 
3331 01 as: geecones 
oi Be 
1 RR 
1 i 
7? Ol TEMP 
WDE TEMPS, #1 
14 11s 
teuee Bors SRE 22 SECTOR SOFTWARE BSE ADDR 
3349 ata fERPS, Bepscre> ° 
4 #1012' TEMPS -TRACK 2, SECTOR 12(8) 
3944 O16444 TEMPS, RKDACRS) 
334e 0164S2 IMP 1 » REPEAT 
O164SE CMP 
tg he sSECTOR CTR 
164 MOV ‘STORE 20 SECTOR HARDWARE BSE ADDR. 
1 MOV TEMPY , RKBA(RS) 
1 MOV it G01, TENPS sTRACK 2, SECTOR 1 
16514 MOV te *RKDACRS) 
4 Ol IMP l s REPEAT 
16 000003 12S: CMP TEMPS, #3 
16 1 BNE 
3958 O16 CL EMPe sSECTOR CTR 
1654 1 7 007420 MOV HBSE SOS TENDS ‘STORE 20 SECTOR SOFTWARE BSE ADDR 
i 500004 MOV , RKBACRS) 
i 16556 1 HOV ' TEMPS sTRACK 2, SECTOR 13(8) 
a: pi eess eitteg IMP 1 wee s REPEAT 
S 016576 005737 10S: TST $PASS 
3966 016602 001040 BNE TST10 ::GO TO NEXT TST IF NOT 1’°ST PASS 
7 Ol 0440 TYPE MSG17 ‘CART SERIAL # 
16610 012746 MOV BBSEOCH, -( SP) 
16614 73 JSR PC, $0820 sCONVERT DBL BINARY WORD TO OCTAL 
70 016620 0047 37 ISR PC’ SSUPRS -TYPE SERIAL # 
71 Ol 104401 TYPE , SCRLF 
337¢ 016630 104401 TYPE » SCRLF 
74 016634 7 JSR PC, SUBCLR 
395¢ pT EesS Bue ERROR 24 :CERR AFTER SCLR 
39 ‘GO BACK TO CYL O 


3477 


WJ 
6) 
“J 
© 
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<= 
ru 


012737 000017 007354 MOV #SEEK,HCS1 


eee 


—_ em ee em + eee 
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78 
READ & SAVE BAD SECTOR INFO & TYPE PACK SERIAL & SEQ 0078 


CZR6IEC UNIBUS RK& DR PRT2 MACY11 7 ee? 













 CZ2R6IE.P11 10-JAN-78 09:43 
3979 016650 004737 032224 ISR PC, DOCMD :D0 SEEK CMD & GET CONTR READY 
3380 16654 104131 ERROR ial NO RDY AFTER SEEK CMD 
82 l 37 001420 007412 MOV 750000 TEMP1 SETUP T MEOUT 
95 16664 737 032730 ISR FaTte *FIND A 
ao4 166 132 ERROR Se" : NO Oran AFTER SEEK CMD 
88 16672 032737 100000 007354 BIT #CERR,HCS1 
16700 O91 1401 BEQ 66$ 
288 16702 104210 ERROR 210 ;CERR AFTER SEEK CMD 
30 016704 665: 
3992 
3993 
3994 .SBTTL WRITE TESTS 
3396 
39 4 preereen teen eacic WRITE DATA TEST: 1 DS 
3338 ; ATES T 10 BASIC WRITE DATA TEST; 1 WORD 
4006 5 THIS TE T VERIFIES THE pBIL Ty OF THE THE OR DRIVE E AO QWRITE JUST ONE WORD, 
40 * A RITE OR MAND 1s 1s SUED. BE per tferc CHECK COMMANDS ARE NOT 
4003 : PERFORMED. THI ones PROVIDES THE MONTES ST POSSIBLE SCOPE LOOP 
HOO ; FOR A WRITE E 
40 é KEKE ERA URE RRRAR SERRE RKEREEHREHESERSRRRHE REE KER REKKEHRREREHRTRKREK 
4008 BIE Tbe eat 000001 001174 e110: Boy #1.STIME TERAT ON 
4008 BteSta 0127 001100 MOV SStAcK. SP APS TS STK 
4O11 0167 005737 l TST ERR E IF ALIGN CART 
Ole Bievey oldie OUTS i ;SEE I 
401 O167e6 104401 o4S662 TYPE ,MSGYHO BSE OR ALIGN CART USED 
4014 0167 04401 045354 TYPE MSG26 ‘ABORTING BAL OF TESTS 
401s 016736 000137 031452 IMP $e0P 
4017 O16742 004737 034214 2S: JSR PC, SUBCLR 
4018 016746 i04024 ERROR 24 :CERR AFTER SCLR 
4 016750 005237 007340 INC BADHDR ;USED FOR VALID HALT 
40e 016754 012700 o01S22 MOV SHDTAB, RO sMAKE ALL CYL O HEADERS IDENTICAL 
4024 6760 o0S020 1S: CLR (RO)+ sHEADER WORD 0: CYL O 
4025 016762 012720 140000 MOV #140000,(RO)+ HEADER WORD SECTOR O 
10e 016766 012720 140000 MOV #140000'(RO)+ ;HEADER WORD KOR OF 182 
40 16772 020027 001726 CMP RO, #HOTAB+132. ;ALL HEADERS DONE? (22X6=132) 
4029 16776 B51 370 BNE rf -BR IF NO 
4031 017000 012765 001522 oD0004 MOV #HDTAB RKBACRS) sHEADER TABLE 
403¢ 017006 012765 177676 oo0000e2 MOV #-66.,RKWC(RS) ;WORD COUNT 
4034 017014 012737 O00027 007354 MOV #<WRHEAD> , HCS1 
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007354 





00001le 





000000 


007444 


7450 
74Se2 


0074S 
00746 


64S: 


65S: 
66S: 


JSR 
ERROR 
JSR 
aM 

Q 


TYPE 
JMP 


al telee woame 
ines esate 


na * 





QaMOOor- 


cURRITE DATA TEST; 1 WORD 


PC, DATCMD :DO DATA X FOR CMD 8 GET CONTR RDY 

200 :NO_RDY QF TER WRITE HEADER CMD 
GSTAT :GET FRESH STATUS 

aCERR, HCS1 

201 sCERR AFTER WRITE HEADER CMD 

glisGee ‘ABORTING BAL OF TESTS 


sRESTORE STK PTR 
sCERR AFTER SCLR 
sTRACK/SECTOR # 
*DATA TO BE ALL 1’S 
WORD COUNT=1 


;D0 DATA X_ FOR CMD & GET CONTR RDY 
*NO_RDY AFTER WRITE DATA CMD 

;GET FRESH STATUS 

;BR IF NO ERRORS 

;SEE IF SECTOR FLAG 

;BR_IF 


if or SE vai ie LISTED IN BSE TABLE 
TURN HE 


ee CONSEC. SECTORS BAD 


SecToR 

46 gata 26S! DETECTED 10 BAD SECTORS 
S$ Brees 

| aetna RY ANOTHER SECTOR 

le ;CERR WITH WRITE DATA CMD 


#<0!D0.SPIN!D.DRDY!0.VV!0.DRA>, a AO ;EXPECTED MSG AD 
XPECTED MSG’ BO 
, orEL res Al 


E.B0 
#<D. SPOK!D.CART!0.DOOR!D. SSP>, 
#1 1,€. Bl ise ID FOR CR PER fen’ née 

















Se 1D FoR Re 
#2,—.B2 CTED MSG B2 
#3,£.B83 nee f CTED MSG B3 
PC CHKNSG, s CHECK MSGS AO 80, Al, Bl 
T.Ae!T. 20 PECIFIED HERE 
:MSG AD ib ebR TER WRITE DATA CMD 
35 "MSH BO ERROR 


— —e <ew- ee ee 
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4091 017304 
4032 





iene 


Hele oyFaes 
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5 
r 
Bi 
O1 

i 
01 
01 
01 

1 
01 
01 


ie 
? 
fo 
7 
res 
7370 
7374 
ra08 
74 
ru 
7404 
7406 





ares 
o 





ze 22 P22 


RS on 


ea 3 


1 

le7 

12737 
004737 


009737 
104200 
032737 100000 


001405 
104201 


2 2 
nv 


perneeS 





SELES LSSSS£LLSSS SLL ELE LSL£ ff 
ete eee ete eee ee eens eerie meme mmm ee OOOS 


FU EWV—ODO VEN L WV ODO LOU OOD ON FO OSDIR LOLS 


O000000 


—— <ea— . <aeeee— - oe 


ape 3g edo URI TE Hite ORD ns 
ERROR 53 ;MSG Al ERROR 


iNBGaPtne’BA: oF Tests 






















RROR 2S 
MS aoe 
67S: ERROR 63 sBAD SECTOR NOT LISTED IN TABLE 
007444 IN!D. DRDY 2D. PECTED eG .DRA>,E.AO ;EXPECTED MSG AD 
74 'D. carTiée OR! sEXPECTED Al 
oueS i561 Ht RPIN?D.SSP> £8 
: Swit 
ant ha BF TED Hee _ 
-CHECK MSGS AD, BO, Al, Bl 
. WORD ‘ MSGS SPECIFIED HERE 
Ee MSG 80 TER WRITE DATA CMD 
RR ; 
RROR -MSG Al ERROR 
-MSG Bl ERROR 
; Fa nee Set ae et hee ner 1 Sei 
; ATES BASIC WRITE DATA TEST; FULL SECTOR 
ts THIS TEST IFIES T ILITY IVE TO WRITE 
* a FULL SECTOR. BPL HERS LEY Rt WRITTEN THE WRITE DATA C 
; % a ae Soe Conran, COMMAND. A FURTHER CHECK IS PERFORMED 
3 HE VE 1s"R REPEATED FOR AN ALL ONES PATTERN. 
:  REEKKAKREKERREREREREEERERERERRKARKERKERKREKEREKAEREHKRHEHRKEE REE 
+éT11: SCOPE 
001174 MOV #1. STIMES : 1 ITERATION 
MOV eSTACK, SP ‘RESTORE STK PTR 
JSR PC, SUBCLR 
ERROR 24 :CERR AFTER SCLR 
004 MOV SHDTAB, RK ACRS) »REST TO 22 SECTOR 
eater MOV 8-66. , RK + OF ANDARD FORMAT 
CLR TOCYL 
001 V T ALADD -SET 
001465 NOV $0 HEAS 75 TLL 
501466 MOV 80; FORMAT ‘ HEADER 
ISR PC; FHDTAB : TABLE 
007354 MOV #<WRHEAD> , HCS1 
JSR PC. DATCMD’ :D0 DATA X FOR CMD 8 GET CONTR RDY 
ERROR :NO RDY AFTER WRITE HEADER CMD 
JSR PC. GSTAT -GET FRESH STATUS 
007354 BIT actA, HCS1 
ERROR 201 :CERR AFTER WRITE HEADER CMD 


a 


O07 











BOATAO.RKBA(RS) ;WRITE ALL O'S 


gt a 


CZR6IEO UNIBUS RK& DR PRT2 MACY11 30A(10S2) 10-JAN-78 11:25 PAGE 61 SEG 0081 
CZR6IE.P11 10-JAN-78 09:43 Til BASIC WRITE DATA TEST; FULL SECTOR 
414 S354 TYPE sABORTING BAL OF TESTS 
140 017834 otk os iaee IMP seoe 
Ms 17540 64S: 
CLR BADHOR sUSED FOR VALID HALT 
: SCOP 1 
a 0 MOV eSTA&CK, SP sRESTORE STK PTR 
, SUBCLR 
5 zRROR BS :CERR AFTER SCLR 
CLR SECTOR 
: 000006 8s MOV SECTOR, RKDA(RS) ;SETUP SECTOR 
: 


o 
uw 


8<WRDATA> ,HCS1 
, DATCMD 


: RB RET aB ERP ASTRc A RET® FO 
ce 


TAT. -GET FRESH STATUS 
: :BR IF NO ERRORS 


i BEE AF SECTOR FLAG 
Else SEE IE FO LISTED IN BSE TABLE 









» HER 
TRUERR 


SESLELSLELSELSESELLELSLELSLELLELSLES 


be he fe bb bh be os bb bP bh he = be bh be bb bb bb be bb bP be he pe be Bn BH Pao Bs pe he be he pe PP er 





67% 










iS Se Oe at ea a Pe 


— bb Rb bbb bbe i i ee ee ee he 











: 
7 
73 
? 
74 
4 ‘ SECTOR, #10. ee N CRSE® SECTORS BAD 
4 zs Ge : BBR TEST DETECTED 10 BAD SECTORS 
4 eg 65S: * seceatenath iByeRss Tes] SECTOR 
4 es 66S: :CERR WITH WRITE DATA CMD 
4 Be Mov r 'D. SPIN!D. -DRDY 2D Set @' Bane sEXPECTED MSG AD 
4 e2 Vv ,SPOK#D. CART!O esas SSP>,E.Al ;EXPECTED Al 
: 89 MOV #1 Bl ebm CTED MSG B1 
He Oy HER «ARE TB FOU BOPECTER a BS 
4194 737 033042 JSR PC, CHKMSG : CHECK 
4 8 l ERROR 1 eters. nso 0p Ghat ae TER CHE TED He BETA CMD 
8 Be can tA a 
“4 id 1 1 o4sS3S54 YPE ,tiscee : Ft BAL OF TESTS 
4502 BSobe0 PoNbe3 — 67S: ERROR oe :BAD SECTOR NOT LISTED IN TABLE 


EE 





tx 


SSRSSS MRE EESES 
@ Ws 


ret 


rururururururururururururu 


SEELECLSCESCSCSCLC EELS LECCE SCLC LSC SELLS 





LLLEL 


SESESLSES£LS&S£S&£S ££ 


a3 3, 


SLESLSLESLS£L&£C ££ 
yg 
ONOUSL Ow 








012737 


MACY11 30A(10S2) 
Til 


007444 
007450 
007452 


7456 
7462 


000006 
Bapaas 

00e 
007354 


007354 
007370 


007370 


007444 
pore 
9074S 


007456 
007462 


68$: 


695: 


70$: 


718: 
733: 


10-JAN-78 11: 
BASIC WRITE DATA 


MOV 


iP eEsE 


DAM 


OMODm “- 


E0? 


& PAGE 82 
EST; FULL SECTOR 


#<0!0.SPIN!D.DRDY!D.VV!D.DRA>,E.AO ;EXPECTED MSG AD 





#<D.SPOK!0.cART!O. 'D. BRHM! .SSP>,£ Al sEXPECTED Al 
E : CTED'MSG B1 


#1,€.81 
ae 

83° E83 

PC. CHKMSG 
T.Ae!T.Be!0 


5 
eSTACK, SP 
PC, SUBCLR 
DM 





#<RDDATA> ,HCS1 
pgronrere 









MSG ID FOR E E 
: EXPE £9 
MSG ; OR CTED MSG Be 
: FOR CTED MSG B3 
; CHECK Ss Al, Bl 

+7 g SPtcir te HERE 
:MSG é AFTER WRITE DATA CMD 
‘Mec Al ERROR 
-MSG Al ERROR 
-MSG B1 ERROR 
;RESTORE STK PTR 


;CERR AFTER SCLR 


;SETUP SECTOR 

sDO DATA X FOR CMD 8 GET CONTR RDY 
-NO RDY AFTER READ DATA CMD 

-GET FRESH STATUS 


;SEE It BAD SECTOR 


;DETECTED BSE IN READ BUT NOT IN WRITE CMO. 


;ABORTING BAL OF TESTS 


;SEE IF DATA CHECK ERROR 
;DATA CHECK ERROR AFTER READ CMD (ECC) 


;CERR AFTER READ DATA CMD. 


(0!0.SPIN!D.OROY!0.VV!D.DRA>,E.AO ;EXPECTED MSG AD 
S 


Wot HH MSG 






XPECTED MSG Be 
XPECTED MSG B3 


POK!D.CART!O. 'D. 'D.SSP>,E.Al ;EXPECTED Al 
Bl ASG 10 ESR E EefED MSG Bl 

sEXPECTED MSG Ae 
BS ; 


C 
MSG ID FOR 3 
MSG ID FOR 


SES 0082 


———_ -——— 


———<—  <— —~ 


£0? 




















ZREIEO UNIBUS RK& DR PRT2 MACY11 30A8(10S2) 10-JAN-78 11:25 SEQ 0083 
ZR6IE.P11 10-JAN-78 09:43 Til BASIC WRITE DATA TEST: UL SECTOR 

y 

uSe6 020 737 033042 ISR PC. CHKMSG BO, Al, Bl 

4 3 WORD T.Ae!T.B2!0 6 CIFLED HERE 

4 4 ERROR si AFTER READ DATA CMD 
4 RROR 

‘ 4 ERROR S6& 

4 285 

: 7e$: 

y 007444 MOV #020. .SPIN!D.DRDY! ; sEXPECTED MSG AD 
4 OSuE CLR E. 

457 7 7450 MOV #<D. SPOK!D. cari. -SSP>,E sEXPECTED Al 
4 l 7452 MOV #1,€.B1 ED ASG. Bl 

we? 7454 CLR E Re 

4up74 l 007456 MOV #2,£.B2 : CTED MSG B2 

a57e 4 012737 000003 007462 #3,£.83 CTED MSG B23 

42 ? 033042 JSR PC, CHKMSG sCHECK MSGS Al Bl 

4678 WORD T.Ae!T.Be!0 PECIF IE HERE 
4 l 4 ERROR 54 AD DATA CMD 
4280 104026 ERROR rst 68 Ener 

4 1 ERROR fe LE 

4 l ERROR -MSG Bl ERROR 

45B¢ Dees ppergs 0014S2 2s NOV che ve ACT WORD FOR TYPEOUT 

ieee bn pt AAs? 001454 MOV RO, WO2 Bee TED DA DATA FOR TYPEOUT 

‘ GbOse 92002 | CMP RO, (R1)+ TA TABLE AGAINST 
4 . 58 rights PE SoR 33 +. re SHOULD NOY EONPARE WITH WRITE DATA 
“ 27 007336 3$: CMP Ri, #ROTAB+S12. ;SEE IF nRERCHED END OF TABLE 

‘ aed ayer a4 BNE 2$' ‘BR IF NO & DO NEXT WORD 

4 40 CMP RO, DATAO : SEE IF DI ID ALL O'S 

: a OUt«‘ésS = 

vy 

4 1500 ug: MOV BDATAL,RKBA(RS) ;WRITE ALL 1°S 

4 1509 MOV DATAL RO 

4 1402 000006 MOV SECTOR, RKDAC(RS) 

‘ . 1 17604 IMP i$ 

4304 74 Ss: 

4 74 104415 SCOP 1 

4 76 012706 001100 MOV aSTACK, SP ;RESTORE STK PTR 

4 737 034214 JSR PC, SUBCLR 

308 waar ratte ERROR 24 :CERR AFTER SCLR 

431 l 76 10 BIS (RS) TH Ss ,PORT ION OF THE TEST CHECKS 
312 Os08 16 l eee 001800 retetetate MOV SDATAL. RKRC S) HE WRITE CHECK CMD 

431 0524 012765 177400 o0000e MOV S ocE. CCRS) SLL 1’ Me WERE PREVIOUSLY WRITTEN 
4314 920532 013765 O014O2 oOO00006 MOV SECTOR’ RKDACRE) 


— <a 


————- 


— |e — we. 


OCD 
bane 


— >—- be 
+ 






£ 









SEEELLELELSLELLELLSLELLELSLES 


FER SSESP ROCKS Sa 


=e 
NN 


N 






Ba5979 
A 






OF Ree 
z 


0&6 001100 
7 034214 
4 


ZS£ELSESLESELSLILLSELELSLLEIESLESESLSELESLESLS 
-_ 


GER RP RRR ER RRR RRR AR RAR Pee Re 


08 
tf fu 


eee ee = ~ = - — a 


_— LTT EE EE CTT TT EL LLL RR mm ge —_ 


MACY11 7 hoe 


007354 


0073S4 
007356 


0014Se 
0014S4 


007444 


ate 


7456 
7462 


007444 


0074S0 
0074S2 


0074S6 
007462 


74S: 


75S: 


DO DATA X FOR cr & GET CONTR RDY 
SS Fle atta ee Oe 









t ;SEE IF WRITE CHECK ERROR 
MOV RKDB(RS),WD1 sACTUAL WORD FOR PRINTOUT 
TAL, WDe D WORD FOR TYPEOUT 
. s WCE artih WRITE CHD 
ERROR 22 ;CERR AFTER WRITE CHECK CMD 
MOV #<0D. SPIN!D. DROY!D. WV! sORA, .A0 ;EXPECTED MSG AO 
1b DoOR E.Al_ ;EXPECTED Al 
: I ESR E ee’ ASG B1 
ree | MSG 
>MSG 
>MSG 





AFTER nite CHECK CMD 


HEC MSGS Be BB fe 
ee 









MOV 8<02D. .SPIN!D. DRDY 0. ,VV#D. DRA ,DRA >, £.AO sEXPECTED MSG AD 
abv BO spoK!D.carTibe IBS BRAM: .SSP>,E.Al ;EXPECTED Al 
MOV #1,6-B1 if 10 F OR E CTED'MSG B1 
: ’ 

Vv « d -MSG I CTED MSG B2 

NOV $5°E BS -MSG ID FOR NPECTED MSG B3 
HKMSG CHECK MSGS Al, Bl 

a6 Fo ee esi 0 ; IFIED HERE 
ERROR 57 sMS° AD WRITE CHECK CMD 
ERROR 31 1% BS ER 
ERROR 8° mee Bt + ERROR 

OP 1 
AOY eSTACK, SP sRESTORE STK PTR 

R PC, SUBCLR 
eRROR 24 . :CERR AFTER SCLR 


SEQ 0084 


—_— ee eS —— + -- 


— <e ——— 


HO? 


CZR6IEO UNIBUS RK6 DR PRTe MACY11 30A(10S2) 10-JAN-78 11:25 PAGE 8S SEQ o08s 
CZR6IE.P11 10-JAN-78 09:43 Til BASIC WRITE para TEST; FULL SECTOR 


a 4 6 474 ;SETUP TO CHECK AGAINST WRONG DATA 
Oe 


1s BLETES Hs 
| 
l 
: 












Tek 


DO WRITE CHECK CMD. & GET CONTR RDY. 





SEOKESR 


; oe 2 Ph At CHECK CMD 
081070 104017 ERROR : HR TE CHECK CN NOT FUNCTIONING 


021072 6S: 
1g si0 007444 MOV g<pi0. . SPIN!D. - OROY 20. ¥¥42, ORB» DRA>, AO sEXPECTED MSG AO 





foro 
pee ae 
-O 
Bri 








1104 7 MOV #<D.SPOK!D. consi 'D F.Al  sEXPECTED al 
He (oo 8 ty, AES el 
il 900002 007456 MOV #2,£. F T 
p51152 900003 007462 MOV a3, B2 i 18 FOR EXERTED Mee - 
021140 004737 033042 ISR PC, CHKMSG ens MSGS AO, 80, Al, BI! 
1144 . WORD felts BM SPECIF LEO HERE 
1146 104 ERROR ? : MSG T CHK CMD 
Hee 19st) ese me = 
Beites 18089 mo ed Bt Basa 
ll 7$: 
: ee ce Be eee ee 
; ATE 20 SECTOR FORMAT TEST 
is ALL 1°S ARE WRITTEN ON A FULL SECTOR IN a SECTOR FORMAT. 
2 a MSG BO,B1 ARE CHECKED FOR ANY ERROR CONDITION. 
is CYL 0,’ TRACK 0, & SECTOR O IS USED. 
Wy  SESKSESESSRSSSKSARERERHKRESRESRARRARERSEREARAARRRARAERSLRKRRAAHRARAAEEE 
4408 021156 o00004 +éT12: SCOPE 
4409 1160 012737 oOO00001 001174 MOV #1.STIMES 1 ITERATION 
4410 021166 012706 001100 MOV astack, SP ‘RESTORE STK PTR 
yy | 117, 737 O34214 JSR PC, SUBCLR 
4415 BST ise 104 ERROR 24 :CERR AFTER SCLR 
4415 021200 012765 O001S2e oD0004 MOV #HOTAB,RKBA(RS) ;HEADER WORD TABLE 
wate G2 1206 012765 177704 o0000e MOV #60. ,RKWC(RS)  ;WORD COUNT FOR 20 SECTOR FMT 
5 
18 851520 weet apatite NC TOCyt ;USED FOR VALID HALT 
hy 
wel 021224 013737 001346 001362 Mov TOCYL .CALADD 55" : 
4485 BSisi Biss ? i BT OeE MOV ei’ TE OMAT 79 Fit 
4424 021246 004737 O3Se2le JSR PC’ FHDTAB ABLE 


TT meme ~ 


C—O I iw 








SSRIS BGPE ENTE ag "MY 2051052) 0G Fowl Feat an come 
























007354 MOV 8<CFMT!WRHEAD> , es 
PC. DATCMD DO DATA x FOR cn 8G & GET ET CONTR RDY 
Y AFTER WRITE HE 
007354 B< CENT! SELDRV? , ct 
sNO RDY AFTER SELDRV CMD 
007354 
;CERR AFTER WRITE HEADER CMD 
“4 ‘ABORTING BAL OF TESTS 
eb 
Ay 
44 SCOP 1 
na MOV sRESTORE STK PTR 
ISR 
wa bs ERROR ;CERR AFTER SCLR 
CLR 
OO000E 4S MOV 
500010 Bis ) SWRITE ALL {NER INHIBIT 
4 iti MOV » *PE8 FULL sector 
yy 
Ra nhc: _— TOR remem, a Xx FOR CMD 8 GET CONTR RDY 
44uss tha ERROR 11’ NO pay AOR TER WATTE pata CMD 
141 007354 MOV #< CENT! SELDRV? , HeSl 
4 ii SR 
wt 14 npens RROR 11 ie ae ;NO RDY AFTER SELDRV CMD 
wib0 1 aS2 Q He : ;BR IF NO ERRORS 
4 1434 007370 BIT #BSE, HER ; SEE IF BAD SECTOR FLAG 
46 1442 BEQ 66 ; 
4 1444 ISR C. TRUERR ‘ELSE SEE IF SECTOR LISTED IN BSE TABLE 
“ee 14S0 BR 67$ *RETURN HERE IF NO 
4 14 ECTOR TURN H RE IF YES 
8 051456 oo0001e2 SECTOR, #10. Pt C. SECTORS BAD 
4470 a 4 She TEST DETECTED 10 BAD SECTORS 
4yu7 l MP 3 
yy? l 000000 65S: MOV ean meosscnss | y BROTHER SECTOR 
4473 Oe IMP ug 
474 l 66S: ERROR ile ;CERR WITH WRITE DATA CMD 
4476 ! 007444 Mov 8<0!D. .SPIN!D.DRDY!D. ta .DRA>,E sEXPECTED MSG AO 
4y47 l 007450 MOV #<D. SPOK!D.CART!). DOOR! 4 sEXPECTED Al 
a l 7452 MOV #1.—.B1 -MSG ID FOR EXPECTED’ Aga. Bl 
a 1 CLR E.Ae s EXPECTED MSG 
4481 Oel 007456 MOV #2,£.B2 -MSG 1D FOR EXPECTED MSG B2 
44 021 007462 MOV #3,£.B3 -MSG 1D FOR EXPECTED MSG B3 


—— —_—- 


- A TT TT AT A —_ --- -_— 


: 33 


QRH LO 


oe 
merry 






FPPHIS: 


=f 
0 


Ne 


EEEEELE 


NOU LWT 


£ 
ul 
es je be be be Re 


rata aral 


ss 


£LfCLLL 
bed de de 
CT Te 1) 








-2 
a 


pre bas be es as Re Pe fe Be bs pee BR a ee 
ul 


pee 


a2 % RENO TeR eB INSe ee 


oro 
uw 
£ 


2h 





pe 


NNNNNNN 
NBs 
Sune 


: 
: 
: 


hh eee eee he he he he pe 
fu 


NIN 


_ 

Pat st ei 
wn ier es 
So NN 






RKE6 DR 
10-JAN-78 09:43 








2 Rn 


NS S8Vssys8 


a 
a5 





104022 


PRTe 


033042 


S354 
14Se2 


010001 


ee 


MACY11 30A( 1052) 
Tle 


007354 


007402 


007444 
907450 
74Se2 


0074S6 
007462 


00000e 
900010 
000006 
007354 


007354 


007354 
007356 


0014S. 
001454 


67S: 
68S: 


1$: 


695: 


O07 





10-JAN-78 Il: PAGE 87 
20 SECTOR FORMAT TEST 
JSR PC. CHKMSG ;CHECK MSGS AD Al, Bl 
T.A2e!T.B2!0 Sec te HERE 
msc 80 ERR bRa0R AF TE IF TED DATA CMD 
-MSG Al ERROR 





fee 
ABORTING BAL BAL OF TESTS 
0n0 SECTOR NOT LISTED IN TABLE 






#<CFMT!SELDRV>,HCS1 
PC. DOCMD 
11? sRDY NOT FOUND AFTER SELORV CMD 
#0. FORM, HMR2 
102 sFORMAT NOT SET 
a<O2D. .SPIN!D.DRDY!D. VV!D. DRA» . E. AO ;EXPECTED MSG AD 
#<D. SPOK!D. cant. 4BQOR? 0. 1D_SSP> ,£.8 , sEXPECTED Al 
#1,6-81 ED’ MSG 
#2,£.B2 XPECTED MSG B2 
#3,£.83 oe beecre MSG B23 
PC. CHKMSG AO, BO, Al, Bl 
ofO'o tED HERE’ 
oe OR AFTER WRITE DATA CMD 
He of 
= RKWC(RS) ' re: 
SAW tk 
# aBAl CS2(RS) 
OR, RKDACRS) 
<CFMT!WRTCHK> ,HCS1 
Be bATCHD :DO DATA X FOR CMD & GET CONTR RDY 


1s’ *-NO RDY AFTER WRITE CHECK CMD 
a<CENT!S SELDRV> ,HCS1 

11? :NO RDY AFTER SELDRV CMD 
SCERR, HCS1 

BCE, HCS2 :SEE IF WRITE CHECK ERROR 


RKDB(RS),WD1 ;ACTUAL WORD FOR PRINTOUT 
DATAL, WDe -EXPECTED WORD FOR TYPEOUT 
:WCE AFTER WRITE CMD 








70$ 
ee ;CERR AFTER WRITE CHECK CMD 


SES 0087 


= -_ 


csRelePil 5 -3AN-78 8 05:43 —— sng NOSE) on SECTOR FORMA ae sg Aces 


























7 9340 007444 MOV #<0!D.SPIN!D. ORDY!D. vv! .AO ;EXPECTED MSG AO 
46 CLR # E BO - EXPECT 
4 17 007450 MOV SPOK !D.CART!0. DOOR! .SSP>,E.Al ;EXPECTED Al 
4 007452 MOV 1 Bl ; 
4 CLR E. sE 
uy 007456 MOV #2 -MSG 
‘ 4S 000003 007462 MOV 3 : MSG 
ysy 033042 s CHECK 
eH >MSG AD é 
‘mee Al E 
45 -MSG Bl E 
4B O4535 : ABORT ING 
yo54 31452 
4SSS 
ace? 708: 
4S 010001 007354 V #<CFMT!SELDRV> ,HCS1 
45 032224 ISR PC, DOCMD 
4SS ERROR 11? ;NO RDY AFTER SELDRV CMD 
4260 001000 007402 BIT 80. FORM, HMR2 
Bee ERROR 103 sFORMAT NOT SET 
ged es: 
! 007444 MOV 8020. .SPIN!D. DRDY!0. ReEL IPO ne sEXPECTED MSG AD 
9074 MOV #<D. SPOK!D. cARTIbe ae sEXPECTED Al 
3e8 Bpo4 S MOV #1,€.81 Bl belt eboney e7ED' A ASG B1’ 
ue? l 0074S6 MOV #2,£.B2 erie Of EXPECTE MSG Be 
“ 7 127 007462 MOV #3,£.B3 CTED MSG B3 
4574 ? 033042 ISR PC. CHKMSG HECK Al, Bl 
4575 ofd'o AScS. Pa ihe HERE 
4578 104 7 RROR 37 : R RRITE CHECK CMD 
4 1 j RROR 1 in 
4578 104060 RROR 6 -MSG Al RROR 
ys 1040 ERROR 32 -MSG B1 ERROR 
4580 1O441 SCOP 1 
matt 12706 001100 Vv #STACK, SP sRESTORE STK PTR 
4583 737 034214 JSR PC, SUBCLR 
nf 1 ERROR 24 :CERR AFTER SCLR 
127 S y MOV #HDTAB,RKBA(RS) ;RESTORE CYL O TO 22 SECTOR FMT 
tS5ee 795256 booone ROY BBG," RKWCCRS) 
CLR TOCYL 
137 90136 MOV TOCYL . CALADD »SET 
pis? 7 beta MOV 40 HEAD #5 TLL 
012737 OO00000 001466 MOV #0; FORMAT * HEADER 


004737 O3Sele JSR PC} FHOTAB ; TABLE 


rrr | ee me 


ESREIE. 


4 
4536 


‘ 


SESESESESSESESSS SESS ORR Oe 


eh 
WONG UI LS Wwe 


a 





SSCS GR 





0 em * 
Pil 


Bene 


se 





pssyr8 


022374 





12737 


012706 
0.2702 
004737 
104024 


018737 
104033 


12737 


104062 





aN=78 05:43 


iat 
7 
1 


so 


033664 
100000 


04S354 
0314Se 


007340 


000001 
001100 
000001 
034214 


—_—_—_—_ -_—_— —_———— eee em 


MACY11 7) endl 


007354 


0073S4 


001174 


71$: 


3$: 


oe ieee 


mips Oe ee ee ee es es ee ee ee ee wes we 


1$: 


CLR 


a chet he 


“OFFSET PO 
T POST TIONS IN BO 
rgregggetereeneneeneenonsencenenanenernennenes 


JAN-7 PAGE 89 
CTOR oRMAT EST 





#<WRHEAC> ,HCS1 
PC. DATCMD’ :DO DATA X FOR CMD 8 GET CONTR RDY 
2 . Y AFTER WRITE HEADER 
acer, HCSi >GET FRESH STATUS 
Sat 
1 sCERR AFTER WRITE HEADER CMD 
alagce sABORTING BAL OF TESTS 
BADHOR sUSED FOR VALID HALT 


el I ll esi Nace nang 


pen ne 


TEST OFFSET & RTC LOG 


“BY VER! 
ae Y VERTEVING TaaT THE 










OFF ze! REG 
NA SEEK OMB TO A 


CAR & aeeR TO SELF WILL NOT 
T OR THE T REG. 
TH DIRECTIONS ARE CHECKED 


IT nSG 













SC 

MOV wf STIMES : ITERATION 

MOV aSTACK, ‘hes STORE STK PTR 

MOV #1,R2 -MIN POS OFFSET 

JSR PC, SUBCLR 

ERROR 24 -CERR AFTER SCLR 

MOV R2,RKASOF(RS)  ;SET OFFSET 

MOV #64$ SESCAPE 

MOV wOFFSET 

ISR PC, DOC BEMOn CAL _ CHD & GET CONTR RDY 
ERROR ‘NG RDY ER OFFSET CMD 

Mov #<D.PIP!D.SPIN!D.OFF!D.VV!D.DRA>,E.AO ;EXPECTED MSG AD 
MOV #<D.SPOK!D.CART!D.DOOR!D.BRHM!D.SSP>,E.Al 

MOV #1,€.B1 

ISR PC. CHKMSG i CHECK MSGS 5 00 

WORD O'0!0 te 

ERROR 35 ‘isa ERROR a3 _— CMD 
RROR 61 -MSH BO ERROR 

RROR 6 -MSG Al BROR 

ERROR 62 -MSG Bl ERROR 


SES 0089 


—_- o—- 


-_—- —_ . - 


SEG 0090 


CZR6IEO UNIBUS RK6 DR PRTe MACY11 2 te 10-JAN-78 11:25 PAGE 90 





CZR6IE.P11 10-JAN-78 09:43 TEST OFFSET & RTC LOGIC 
BPR932 pet ate 007412 _— che Laatste i SETUP TIMEOUT 
46 737 032730 JSR PC, FatTT2 iIND OF 
46 l ERROR TN AFTER OFFSET CMD 


deed 

es 
os 
ues 





















oS2340 007444 MOV #<D.DSC!D. OFF!D.SPIN!0.DRDY!D.VV!D.DRA>,E.AO ;EXPECTED MSG AD 
007446 CLR pEXPECTE 
5017 007450 MOV 8<D. SPOK!D.caRT!O. '6.BRHM!D.SSP>,E.Al ;EXPECTED Al 
p7iey 007452 MOV #1 Bl if bn CTED MSG B1 
0074S6 MOV #2,£.B2 : MSG OR 
007462 MOV #3,£.83 - MSG 18 FOR EXPE S TED Mee BS 

JSR PC, CHKMSG sCHECK MSGS AD, BO, Ai, Bl 

. T.A2!T.B2!0 ; SPECIFIED HERE 

RROR -MS a0 : AFTER OFFSET CMD 

RROR 1 > MSH 

ERROR -MSG Al 

ERROR 40 MSG 
001360 TST CYLADD 

BEQ 7§ 

ERROR 42 CYL _ ADDR IN Be WAS 

AF ER OFFSET CMD FR re CYL O 

001000 001356 17S: BIC #1000, CYLDIF -GET RI HIGH BIT 
000016 MOV R2,RKASOF(RS) ;REFRESH RKASOF 
000200 BIT #8117, R2 

NE 6 :BR IF NEG OFFSET 
001356 CMP Re CYLDIF :CHECK POS OFFSET 

BEQ 66$ 


;OFFSET IN A2 NOT = RKASOF 
;AFTER OFFSET CMD 





ERROR 114 
BR 66$ 


RAIRR SREB ORR ODRERIS use eR eERS 





—=_-- 








020137 001356 65S: CMP R1.CYLDIF sCHECK NEG OFFSET 
0014 BEQ 66$ 
1 ERROR 114 OFFSET INA A2 NOT = RKASOF 
LAF TE FSET CMD 
66$: 
ooo0000 MOV #CCLR,RKCSI(RS) 
000010 MOV SUNIT.RKCS2(RS) ;DRIVES 
007354 MOV CLEAR, HCS1 
JSR PC. DOCMD :D0 DRIVE CLEAR CMD & GET CONTR RDY 
46 RROR 131 -NO _RDY AFTER DRIVE CLEAR CMD 
3633 TSR PC, TSTATN ‘TEST FOR ATTN 
47 ERROR 154 -ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
nfait | 673: 
4703 oo0000 MOV #CCLR, RKCS1(RS) 
47 ISR PC, GSTAT 
4705 007402 BIT #0! OFF, HMR2 
4706 BNE 4§ 
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SLLLLLS 
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HM thet bets rn 


2” 
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ee 
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eae ae mie 


IBUS RK& DR PRT 





032737 
001401 
104210 


032737 
00100 
10404 


Bier 32 


005037 


e 


10-JAN-78 09:43 
104043 


ee 


000017 
032224 


001420 
032730 


100000 


002000 


052340 
00744 
10172 
000001 
0074S4 


MACY11 30A(10Se2) 
T13 


007444 


745 
74S 


001356 


007354 


00741e 


007354 


007402 


007444 


0074S0 
0074Se 


4S: 


68$: 


695: 


70$: 


7$: 


v- 
TEST 


ERROR 


07 


JAN-78 11:25 
OFFSET & Rie LOGIC 


43 


8<D.OFF!D. SPIN!D’ BRDY'! D- OW. BRAD 


m 
w 
©: 


#1,€.81 

PC. CHKMSG 
T.A2!T.B2!0 

273 

Soa 

266 

#1000 CYLDIF 
2, RKASOF (RS) 


Nl a 


Re. CYLDIF 
69$ 


115 
69S 


R1,CYLDIF 


69$ 
115 


BSEEK HC HCS1 

1 Thee 

TSOOOO, TEMP1 
PC FaTt2 

132 
#CERR,HCS1 
705 


210 


#0.OFF ,HMRe 
7$ 
45 


#<D-DSC!D. .OFF!D. SPIN?D. DRDY:D. VV!D.DRA>,E.AD 
#<D. . SPOK!D. .CART!O. EXPECTED BRAN .SSP> 


#1,E 


E.A2 


PAGE 91 


sre’ BIT IN RKMRe 


; CHECK 


; MSG 80 ERROR 
;MSH 


fey: Al 


;BR IF 
; CHECK 
sOFFSET IN Ae NOT 


AF TE 
; CHECK 


tRFTER D 


iho SEEK CMD 8 GET CONTR READY 


NO 


SETUP 
;FIND ATT 










RROR 


NEG OFFSET 
POS OFFSET 


enemy mt, ee 


yaad 


Ger BIO oF OF OHIGH BIT 
' REFRE SH RKASOF 


= RKASOF 


DRIVE CLEAR CMD 


NEG OFFSET 


N Ae NOT = 
IVE CLEAR C 


= RKASOF 


MD 


Y AFTER SEEK CMD 


ad 


7-NO ATTN AFTER SEEK CMD 


;CERR AFTER SEEK CMD 


D FOR EXPECTED 


;EXPECTED MSG A 


,E.Al 


MSG Bl’ 


ew. oe —- eae es 


-OFFSET BIT CLEARED IN RKMR2 AFTER SEEK TO SELF. 


;EXPECTED MSG AD 


EE ee me 


—- or << << <<a ic. tt EL LL LL LAL LLL LLL LLL LLL LL LLL LL LLL LLL LLL LLL LLL BBB LLLLLLLLL ABA LLLABLBLLLL LLL PBL? DBPL LBLLBLL EL CLL a 


a, 


B08 


5 te UNIBUS RK& DOR PRT MACY11 30A(10Se) 49-3 1:25 PAGE 9e 
C Pil 10-JAN-78 09:43 T13 TE OFFSE 3° Ric LOGIC 
s2176 piers’ o0000e 0074S6 MOV $3” -Be ;MSG ID FOR EXPECTED MSG Be 
007462 MOV .B3 ;MSG ID FOR CTED MSG B3 












ISR se. » CHECK Ss A l 
. T. 10 4 het meas Spt cir teD HERE 
ERROR 140 :MSG AO ERROR AFTER SEEK TO SELF 
ERROR 14 : 
ERROR 14 : 
RROR 14 : 
001356 IC #1 CYLDIF : 
MOV R2,RKASOF(RS) ; 
BIT #B1T7,R2 
BNE 71$ -BR IF NEG OFFSET 
CNP Re ,CYLDIF -CHECK POS OFFSET 
ERROR 123 sOFFSET IN A2 NOT = RKASOF 
BR es ‘AFTER SEEK TO SELF 
920137 001356 71S: CMP R1.CYLDIF sCHECK NEG OFFSET 
1401 BEQ 72$ 
023270 104123 : ERROR lea -OFFSET IN Re NOT = RKASOF 
‘AFTER SEEK TO SELF 
023272 7e$: 
7 7 034214 JSR PC, SUBCLR 
pS3sse OB40S4 ERROR 24 :CERR AFTER SCLR 
023300 012737 o00012 001346 MOV #10. , TOCYL 
023306 012765 oOo000le o00020 MOV #10.;RKDC(RS)  ;SETUP_CYL L 10 
-DO ACTUAL IMPLIED SEEK TO CYL 10 TO VERIFY 
‘OFFSET BIT IN RKMRe CLEARED 
0017 MOV #RHTAB, RO 
007354 MOV #<RDHEAD> , HCS1 
032262 ISR PC DATCMD :DO DATA X FOR CMO & GET CONTR RDY 
ERROR 171 "NO RDY AFTER READ HEADER CMD 
100000 007354 BIT SCERR, HCS1 
ERROR 174 :CERR AFTER READ HEADER CMD 
045354 TYPE MSG26 ‘ABORTING BAL OF TESTS 
031452 IMP $e0P 
000024 74S: MOV RKDB(RS),(RO)+ ;1’°ST WORD FROM SILO TO RHTAB 
000924 MOV RKDB(RS), (RO)+ ;2° ND WORD 
000024 MOV § _RKDB(RS),(RO)+ ;3’°RD WORD 
100000 o00010 BIT #OLT, RKCS2(RS) 
033664 BES PC. GSTAT 
ERROR 173 sDLT AFTER READ HEADER CMD 
045354 TYPE MSG26 ‘ABORTING BAL OF TESTS 
0314S2 IMP $e0P 





oe eee eel 


CZR6IEO UNIBUS RK6& DR PRT MACY11 sgaci0se) 10-300 Janes “1g eee 93 



















CZREIE.P11 10-JAN-78 09:43 
ui 023420 7S$: 
7 007444 MOV <0!0.SPIN!ID. ROYER eee ORA>,£.AO ;EXPECTED MSG AD 
4 : ere Shy t Pspoxto. CART! if feo Hea "Bi Al. , 3EXPECTED Al 
isa BBkcet EME RR on eBerEsBe SES fel 
0745 Ae Rae 1) FOR Exe 
dees Genes Blgrae Quote pars oy AE CTER nse 
4 ISR oun 
Boagbs : Fo eS 10 is i Bayt 
1 1 ERROR 301 -MSG TER READ R CMD 
4 tae ERROR itec l ERROR 
ERROR 272 :-MSG B1 ERROR 
4e3e 001726 001346 CMP RHTAB, TOCYL 3 CHECK WORD O ONLY, CYL# 
BEQ 73$ 
Wy ERROR 51 :WRONG CYL# ON HEADER 
4 73S: 
4 i 002000 007402 BIT #0. OFF , HMR2 
104101 ERROR 0 ;OFFSET NOT CLEARED AFTER READ HEADER WITH MOVEMENT 
& 65151 001360 ooo012 9s: CMP ae 
mA 1041 5 F OR le :DID NOT GO TO CYL 10 
48S0 737 001356 10S: TST CYLDIF 
4 1401 Q 16 
4 104101 ERROR 101 ;OFFSET NOT CLEARED IN RKMR2 
4BS4 7 034214 16S: JSR PC, SUBCLR 
see Tou0e4 : E 24 :CERR AFTER SCLR 
012737 007354 MOV #SEEK,HCS1 ' 
004737 JSR PC, DOCMD :00 SEEK CMD & GET CONTR READY 
ERROR 1a] :NO RDY AFTER SEEK CMD 
007412 MOV TS0000 TEMP1 :SETUP TIMEOUT 
JSR C,FaTt2 ; ATTN 
ERROR ey “NO ATTN AFTER SEEK CMD 
032737 100000 007354 BIT #CERR,HCS1 
001401 BEQ 76$ 
104210 ERROR 210 :CERR AFTER SEEK CMD 
7638: 
032702 000200 BIT ¥BIT7,Re SEE IF DOING NEG OFFSETS 
001014 BNE 18$ ‘BR IF YES 





————— ee ee 
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10-JAN-78 11:25 PAGE 94 


CZR6IEO UNIBUS RK& DOR PRT2 MACY 11 — 
1 













CZRGEIE.P11 10-JAN-78 09:43 TEST OFFSET 8 RTC LOGIC 
000061 Alis Ee #61 ;SEE IF Just DID MAX POS OFFSET 
023636 001402 BEQ 208 
023640 marae 022420 IMP ‘ELSE D0 NEXT POS OFFSET 
1 20S: MOV #201,R2 sSETUP NEG OFFSET FOR RKASOF 
50 i MOV #103, *R1 BE TUR NEG OFFSET OFOR MSG 
IMP F 
1 18$: ING Ri 
000261 Re a . F FSET 
Bo iG! FOL fo fe aT ts = oo 
023672 000137 Oo22e420 IMP i$ : 60 


. jSESEHERRH ARERR REE E EEE DATA AT PLL HEAD OFFSET POSITIONS 
; ATES TEST READ DATA AT ALL HEAD OFFSET POSITIONS 


NOER 0, HEAG 0 i. iS, HN BY 
V 


THE rai ne QUT. PN. = OFFSET 









TEST aS BR Tees On THE He 


yey a3 





R FAIL 



















i TTT TTT LLL me $A — 
- owe we ee 


- TT 








. 
a 
i$ 
: i 
3838 ; OE set “are ALSO VERIFIED BY READING MSG A, STATUS OO & 10. 
: a ALL HEADS ARE TESTED AT CYLINDER G 
4303 ; IF THERE ARE NO FAILURES AT ALL, THIS INDICATES THAT 
490% + OR a: oA SO MaTT OF OI SURFACE, HEADS, R/W AMP 
330 5 # B. Oe eoneey POWELLS ise 
4 : i NOTE THAT THE OFFSET FAILURE IS NOT AN ERR 
#303 5 BUT AN INDICATION OF SURFACE, HEAD & R/W BEE TRONICS QUALITY ONLY. 
4S] : + SESSRSESSESEESESRSSRKRSSRRRRRRRARSRASAAERREARERARARARRHRRARARARERREE 
uate tsi: oye TI TERATION 
4913 MOV wasRth "ep Shp STORE STK PTR 
4316 ISR PC, SUBCLR 
4317 ERROR 24 :CERR AFTER SCLR 
49] CLR CTOR 
4913 11S: MOV SECTOR, RKDA(RS) ” 
i BS ENED: EIA ge ome 
4923 WILL DO IMPLIED SEEK TO CYL O 
ae Was ON CYL 1 FROM LAST TEST 
4 4 2737 007354 MOV §<WROATAD , HCS1 
si B535e2 piS335 pooEs JSR PC,DATCMD’ DO DATA x x FOR CMD & GET CONTR RDY 
4 023766 4 i RROR 41 :NO ROY AF TER WRITE DATA CMD 
4 7 033664 SR GSTAT T FRESH STATUS 
4930 023774 032737 100000 007354 BIT #CERR,HCS1 


EOS 


O UNIBUS RKE DR PRTe MACY11 30A(10Se) 19- -JAN-78 11:25 PAGE 95S SES 0095 
-Pil 10-JAN-78 09:43 T1i4 TEST READ DATA AT ALL HEAD OFFSET POSITIONS 


;6R IF NO ERRORS 








G2e4002 001465 












































007370 Re IF ~e SECTOR FLAG 
4 : SE SEE T T T 
: : SE ELE SECTO OR LISTED IN BSE TABLE 
49 INC SECTOR s RETURN 
4 000012 CMP SECTOR, #10. ARE 10 10 ¢ CONSEC. CE rors BAD 
4 ERROR 46 fa 
+ ERR 46 ST DETECTED 10 BAD SECTORS 
as 000000 64S: pi fi LR,RKCS1(RS) fags LS SECTOR 
“sve 104012 65S ERROR le ;CERR WITH WRITE DATA CMD 
! MOV a0: 'D. SPIN!D. DROY 1D. vv! AO ;EXPECTED MSG AD 
“ MOV a< , SPOK!D. CART! se te SSP) ,£.Al sEXPECTED Al 
4 : Moy #1, as ED'MSG B1 
4 1 l MOV #2,E. TED MSG 
4 j 1 1 MOV 83, ‘BS KTER MSG B5 
4955 1 7 033042 JSR PC, CHK MSG Al Bl 
4 l T.A2!T.B2e!0 CIFIED HERE 
4 1 l RROR AFTER WRITE DATA CMD 
be 136 1 ERROR 
4 1 1 RROR 
4960 l l RROR 
i363 ee O45354 TYPE MSG26 REAL OF TESTS 
4 184 i 66S: ERROR 43 _ SECTOR NOT LISTED IN TABLE 
wee l 67S: 
4ab8 1 6 007444 x 'D. SPIN!D. DRDY DV eet AO ;EXPECTED MSG AD 
4 1 17 0074S0 8<D.SPOK!D. CART! .SSP>,E.Al ;EXPECTED Al 
43 1 007452 3 Bl 39 ip x CTED'MSG Bl 
497 l 7456 2 E. : MSG OR CTED MSG Be 
4 72 if BO SuES 35° BS : MSG FOR CTED MSG B3 
033042 PC, CHKMSG -CHECK MSGS AD A l 
aoc T.A2!T.Be!0 , -& MSGS cir teD HERE 
:MSG a0 RROR AFTER WRITE DATA CMD 
; MSH ROR 
-MSG Al ERROR 
oat meer :-MSG Bl ERROR 
1 Bobet 9 tb [ RRCSECRS) 
5 on o 
ar bi See bo 1408 606 SET OR’ RKDACRED 
012737 000031 007354 MOV #<WRTCHK> ,HCS1 
004737 032262 JSR PC, DATCMD -DO DATA X FOR CMD & GET CONTR RDY 


- _—_-—-——— —e eS ee - ——_ +—_ —— —_—— 
me 


SSIES, BSR 


—.Pil 


4987 


SSeS 


sosnaney 
# 


NOU £Wrue 


: 
Bs 


5031 
So 
SO 
20 
SO 
S03 
3) 
S041 
S04e 





304 





ae 


02e4SS4 
Oe4SS6& 
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z 
<£ 
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OR Vit 


100000 








801500 


033042 





044641 


000001 
044700 


MACY11 30A(10Se2) 
T14 


007354 
007356 


601484 


007444 
007450 
007452 


0074S6 
007462 


007444 


1074S0 
n07452 


)074S6 
107462 


68$: 


695: 


9S: 


Test 









FOS 





JAN-78 1,25 PAGE PAGE 96 
READ BATA AT ALL HEAD OFFSET POSITIONS 

iS :NO ROY AFTER WRITE CHECK CMD 

PC. GSTAT :GET FRESH STATUS 

ace ,HCS1 

E,HCS2 ;SEE IF WRITE CHECK ERROR 

RKDG(RS).WD1 s ACTUAL FOR PRINT 

BATAL Woe if CYED 0 WORD OR TYPEOUT 

1 sWCE AFTE 

22 sCERR AFTER WRITE CHECK CMD 


a<O2D. SPIN!D.ORDY!D. Vv! 
;SPOK!D. cart: 6. 


Ne 


PC, CHKMSG 


AO ;EXPECTED MSG AD 


paSE? » ,E.Al 
ED'MSG B1 


.DRA> ,E. 








;EXPECTED Al 















[Mtoe ee Bi 

! tA: 

,hiscee Fine BAL OF TESTS 

8<O2D. .SPIN!D.ORDY!D. ws ,PRA? .AD ;EXPECTED MSG AD 
sing el 'D. meg ett 1D. eRe -SSP>, EAL i sEXPECTED Al 
$5°E.B5 Nec 1D FOR EXPECTED Nec L, 
PC, CHKMSG omc NsGS AO 
"ptt 56 ¢ 19 bee g nscs Specie te ED HERE <dnai 
60 mec Al ERROR 

32 -MSG B1 ERROR 

MSGB ;READ WITH OFFSET TEST 

Ri sHEAD & 

#1,RO s INIT OFFSET COUNTER 

mSG9 iH AD 

R1,-(SP) VE R1 FOR TYPEOUT 


(PE HEAD 8 
33 YP YPE--OCTAL ASCII 
;; TYPE 1 DIGIT(S) 


SES 0096 





GO8 









—_ = ——_—= wee ~ 















CZR6IEO UNTBUS | RK MACYL1 (1052) -JAN-78 ll: PAGE 97 0097 
&$ RE! Pil se TES READ DATA AT ALL HEAD OFFSET POSITIONS —_ 
3 SS7 .BYTE O ;;SUPPRESS LEADING ZEROS 
4 TYPE , SCRLF 
024S64 1S: CLR OFFERR ;sWRITE CHECK ERROR FLAG 
70 JSR PC, SUBCLR 
74 ERROR 24 :CERR AFTER SCLR 
MOV RO, RKASOF (RS) ;OFFSET VALUE 
aoe R1,RKDACRS) sHEAD NO. 
4 10 R1 
001176 MOV #70$,, SESCAPE 
007354 MOV sores HCS1 
JSR pocmb :DO RECAL CMD 8 GET CONTR RDY 
ERROR -NO RDY AFTER OFFSET CMD 
007444 Mov 8<.PIP!D. SPIN!D. OFF !D. VV!0. DRA», E.AO sEXPECTED MSG AD 
ue 0074S0 MOV 8<D. SPOK!D. CART!D. DOOR!D. BRHM!D.SSP>,E.Al 
4 SY 007452 MOV ,£.B1 
ISR PC ACHKMSG HE Bl 
Sy a iSnsgs SPECI FPR ne Re’ 
ERROR ROR DURING OFFSET CMD 
Dede ra RROR 36 Te Al ER RROR 
2 76 RROR 
73 1176 70S: CLR SC 
Bee oba l 4 01418 007412 MOV itt FMP al iMeouT 
ole 737 730 ISR PC, FATT2 
7 1040 ERROR 34 TIN AFTER OFFSET CMD 
25 7 340 007444 MOV #<D.0SC!D.OFF!D. SPIN? N! .VV!D.DRA>,E :EXPECTED MSG AD 
7 ? 4 CLR E. E BO ea 
7 ? 907450 MOV SPOK!D. cART!D E.Al ;EXPECTED Al 
i 7452 MOV 1 Bl Bsr ED’ ASG Bl 
CLR ; 
Sos4 758 007456 MOV 26-85 i gig: OR ih TED MSG Be 
as 007462 MOV #3.—.B83 D FOR gt D MSG B32 
JSR PC. CHKMSG cv 1 
naa T.Ae!T.Be!0 sce SPECIFLED. HERE 
774 ERROR ERROR AF TER OFFSET CMD 
ERROR i ne 
ERnGe 8G Fai it Beads 
5093 
S094 
12765 000000 MOV acct, RK , RKCS1(RS) 
O12 13765 lece 000010 MOV €52(RS5) ;ORIVES 
02502 12737 007354 MOV Se EAR HCS 1 
025026 004737 O32224 ISR PC, BOCHD. :DO DRIVE CLEAR CMD & GET CONTR RDY 





ee ae eee _ <- o- —_— —2_2e 





Si2) 















ZREIEO — RK& DR PRTe MACY11 30A8(10S2) 10-JAN-78 11:25 PAGE 98 SEG 0098 
ZR6IE. 10-JAN-78 09:43 T14 TEST READ DATA AT ALL HEAD OFFSET POSITIONS 
5099 0415 ERROR ;NO _RDY AFTER DRIVE CLEAR CMD 

: 2 032602 R Pe, TSTATN : TEST FOR ATIN 

104154 ERROR 154 ;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 





boa ho he bm hee Be pe 


BEIFRLGW—O 


sal AkCSeC RS). 





1 Eft Rf 
i iN. ROY “BEYER UR Rie ch check CMO 
i ;GET FRE 
tis 
Hs ERR ieee WATTS CHK ERRORSSET ERR FLG. 
118 FERR 
e184 aliS639, Batds at Pe FAI peta AT OFFSET 
5124 OF SE VAL ASCII 
51 ee pg CE ABING ZEROS 
i "SCRLF 
i eR 
4 4177, RO SEE JF _ObESEI 1S + OR - 
a RO, #60 
i » 
51 OFFERR 
E #200, RO SETUP FOR NEG OFFSET 
14] 1s 
142 
5143 OFFERR 
eiue "MSG37 Tre CHECK ERROR AT MAX POS OFFSET 
5146 i E? EITHER HEADS DID NOT MOVE 
147 ;OR READ/WRITE AMP IS EXCEPTIONALLY GOOD. 
51g 025240 000763 BR rT 'D0 NEG OFFSETS 
5150 0027 000260 Ss: CMP —s«aRO, #2ED 
$IEb RESER FELOS cows _ 
1 5&4 001072 BNE TSTIS GO TO NEXT TST 
5154 O25256 000760 BR 3§ 


ee -—™ 


- = mm OOO ELLE EE TL LTT LLL TT mee 


- LT TT _-- --— 


I08 



































ZR6EIEO UNIBUS RK& DR PRT2 MACY11 30A(10S2) 10-JAN-78 II: PAGE 99 
ZREIE.P11 10-JAN-78 09:43 Ti4 TEST READ DATA AT ALL HEAD OFFSET POSITIONS 
iss 
l 737 O0014S6 6S: TST OFFERR 
155 gesee on6737 Isto 
iss 025266 104401 oO4SS40 TYPE ,MSG38 WRITE CHECK ROS. SIG, NOT nove OFFSET 
l 1S EXECEPTIONALLY GOOD. 
iee 025272 7$: " 
16 1276 00000 MOV 
164 l Leee MOV 
l ? 13 MOV 
l 4 7 JSR ;DO RECAL CMD 8 GET CONTR RDY 
16 1041 ERROR ‘ROY NOT SET AFTER RECAL CMD 
igs MOV 1 ;SELECT WORD 1 
1 ISR Cc 
17 BIT 80. 
rl 2 BNE 2$ 
153 725: MOV ‘10, TEMP2 OTe ST our 
175 4 ; JSR pe FATT PND ATTN 
178 ERROR SS :NO ATTN AFTER RECAL CMD 
1 MOV 
175 tad ;DRIVES 
l 404 J :DO ORI AR CMD & GET CONTR RDY 
ie 41g E 1S : NO prt pee DRIVE CLEAR CMD 
i 4 ISR PC TSTATN : TEST FOR ATTN 
{Be 0354 BRROR 3s :ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
139 ee 733: 
1 025422 005201 INC R1 -HEAD CTR 
e131 Geses O51 45¢ 000003 cn R1.#3 Br IF ALL HEADS DONE 
136 pS2u35 bi35 o24s4e2 IMP ‘ELSE REPEAT ALL FOR NEXT HEAD 
5193 025436 104401 oO4sS000 10S: TYPE MSGle2 . S ARE NOT ERRORS 
ei ge 3% PoeTTT TTT TOT TT TTT TTT TT TT TT TTT TT TTT TTT TTT iT Titi ttt titi ti tt ie 
2135 ; RTEST is WRITE WITH HEADS OFFSET 
5197 : i THIS TEST VERIFIES THAT WHEN ATTEMPTING TO 
2138 : a Wet WITH HEAD OFF SET THAT THE OFFSET WILL CLEAR 
19 : i & VE WILL WRI 
S200 : a INC WRITE COMMAND HAS AN IMPLIED RTC. 
eeOl ; HIS TEST IS PERFORMED FOR MAX POS & NEG OFFSETS ONLY 
25 3 ae SSRASKRESSSSSSSKESASASKSRSKREASAASARSKRAAERRARSRARERERAERAAARAAAAAERAE 
S20s BSequg eLety 000001 001174 S118: BOY ' #1.S$TIMES NO 1 ITERATION 
206 O254S2e 012706 001100 MOV eStAack, SP ‘RESTORE STK PTR 
08 O254S6 012700 o00z260 MOV #260, RO :MAX NEG OFFSET 


S209 


Sel0 OeS46e 004737 034214 1$: JSR PC, SUBCLR 


ee —— aS ae OO eee lee oe —— 


OO 




















ZR&IEO UNIBUS RK& OR PRT2 MACY11 30A(10S2) 10-JAN-78 11:25 PAGE 100 SEQ 0100 
ZROIE.P11 10-JAN-78 09:43 Tis WRITE WITH HEADS OFFSET 
ae 025466 104024 ERROR 24 :CERR AFTER SCLR 
13 025470 010065 ojo00i16 MOV RO,RKASOF(RS)  ;SET OFFSET 
is 474 23? 001176 MOV #64$, SESCAPE 
16 13737 wt 007354 MOV sOrFSET.HCS1 
l 1 224 JSR , GOCMD :20 DO RECAL 8 GET CONTR RDY 
l i4 1 ERROR 323 Y AF ER Se eEET CMD 
6 Ol 140 007444 Mov ach. PEPtO. PaO. OFF 10. ¥uID. ORM 8.08 sEXPECTED MSG AO 
; 18737 1720 0074S0 MOV | cB  SPOK!D.CART!D.DOOR!D. BRHM!D.SSP>.E.Al 
i 007452 MOV 1,€.81 
4y 7 ISR AO Al, Bl 
SO inter : cIFTED B HERE’ 
2 104035 ERROR OR DURING OFFSET CMD 
14036 ERROR RROR 
iONDES ERROR RROR 
025562 37 001176 64S: CLR 
266 37 L416 007412 MOV TIMEOUT 
737 JSR 
i ERROR ™N AFTER OFFSET CMD 
2536 
0127 052340 007444 MOV #<D.DSC!D.OFF!D.s DROY?D. vvtD. ORA>,E.AO ;EXPECTED MSG AD 
5239 19 00 i _— CLR EO KID. cart? se EAL EXPECTED Al 
18 
eeug 15735 pO SUES MOY #1,.—.81 oF 1D SSP> £8 
34 O1a737 Ade 0074S6 aby E Ae a bake 
Be 42 012737 007462 MOV 95° BS B nee BS 
pee 737 033042 JSR PC. CHKMSG Al, -B! 
4 4 .WORD T.Ae!T.B2!0 cIF IE HERE 
5250 1 85 ERROR 7 
ese) 4 104040 E 40 iMSG B81 ERROR 
2523 | 12765 100000 oop0000 MOV BCCLR, RKCS1I(RS) 
Sess De5e74 BL SoEe O0i2e22 Oo00010 MOV SUNIT{RKCS2(RS) ;DRIVES 
02 012737 oO0000S 007354 MOV #CLEAR, HCS1 
71 bog937 032224 JSR PC DOCMD :DO DRIVE CLEAR CMD & GET CONTR RDY 
714 104151 ERROR 15] -NO RDY AFTER DRIVE CLEAR CMD 
S 716 4737 032602 JSR PC, TSTATN ‘TEST FOR ATTN 
S724 104154 ERROR 154 ;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
S 726 65S: 
eb: 
S26S 025726 005037 o0140e CLR SECTOR 
S266 025732 013765 O0140e OOoDDE 4s: MOV SECTOR, RKDA(RS) 





ee 


-_~ 


= meee ee eee 


—-~- 


08 





















Cc O UNIBUS OR PRT2 MACY11 30A(10S2) 10-JAN-78 11:25 PAGE 101 SE 
KeRe TE Pili 10. 3AN-78 09:43 Tis WRITE WITH HEADS OFFSET 6 010! 
7 OBerae oeres 001474 o00004 Mov sDATAD, RKBACRS) sWRITE ALL o"s a 
oeg ee l SopboS MOV Beene Eni CRS) are cron 
27 MOV 8< TA>,HCSI1 
7 JSR PC. DATCMD :D0 DATA X FOR CMD 8 GET CONTR RDY 
3 ERROR yi : NO ROY AFTER WRITE DATA CMD 
JSR GSTAT :GET FRESH STATUS 
BIT act ,HCS1 
i BEQ 6b :BR IF NO ERRORS 
IT #BSE, HER ; SEE IF SECTOR FLAG 
14 Q ist : I 
7 ISR PC. TRUERR ELSE SEE IF SECTOR LISTED IN BSE TABLE 
5 BR 68$ :RETURN HERE IF NO 
9014 CTOR » RETURN IF YES 
023787 Bot 408 000012 SECTOR, #10. : ARE 0 CONSE. CEZ rors BAD 









; 
AGORTING. TEST DETECTED 10 BAD SECTORS 


37 026756 3 
1 100000 OO0000 66S: MOV SOU, PSS ENSs ; TRY ANOTHER SECTOR 





025732 IMP 
4 104012 67S: ERROR 1 sCERR WITH WRITE DATA CMD 
Br 007444 MOV #350. SPEND. DRT Eee CBO naG" .AD ;EXPECTED MSG AD 
l 7 074 MOV #<D. SPOK!D.CART!O. i ' >,E.Al_ ;EXPECTED Al 
iBe i SOs yee MOV #1,€.B1 ; 10 FOR e e7ED MSG B1 
ae vig We oe me 
l BO SuES ; mee f FOR g TED MSG BS 





sCHECK MSGS AO, BO, Al, Bl 
; S-SPECIE I D HERE 


eG 80 baor WRITE DATA CMO 





2 
2 
: 
‘; 









134 
1 
tua 
i BAL OF TESTS 
ie3 QS: :BAD SECTOR NOT LISTED IN TABLE 
026164 Pes: 
164 012737 010340 007444 MOV #<0!D.SPIN!D.DRDY!D.VV!D.DRA>,E.AO ;EXPECTED MSG AO 
531 pets 37 007446 CLR E.B0 - EXPECTED nS’ BO : 
§ 026 oe 127 001720 0074S0 MOV #<D. SPOK!D. CART!0. DOOR! ; . SSP? ,E Al sEXPECTED Al 
14 737 909001 007452 MOV #1.€.B1 :MSG 10 FOR EXPECTED MSG B1 
1g a Se b2 OO74SE abu #2.£.B2 te CTED MSG B2 
1? BSES 12737 ppoeS 007462 MOV #3°E.83 -MSG 18 F KTED MSG B3 
19 32 004737 033042 JSR PC, CHKMSG :CHECK MSGS AO, BO, Al, Bl 
320 WORD T.A2!T.B2!0 -% 365 SPECIE TED HERE 
321 104052 ERROR Se :MSG AO ERRO TER WRITE DATA CMD 
S322 Oebe¥e 104023 ERROR 23 :-MSH BO ERROR 


——a ee ee 


SES 0102 


cSreie Pil 10 5 AN- R-78 8 05: 243 ae 5g et Te WITH HE be Oerset — 


$323 ERROR 53 ;MSG Al ERROR 
ERROR 25 ;MSG B1 ERROR 
0000e6 MOV ;SELECT WORD é 


se, aS Cee 
JSR PC,GSTA 


TST CyCDIF ; SEE IF MSG A2=0 


Sous | 








ERROR f ee "ee TC EARED AFTER WRITE CMD WITH OFFSET 
70$: ST _— -S a oe y vee 
BE pee BES oR ibe i AGG B2 NOT CLEARED AFTER WRITE CMD WITH OFFSET 
SCOP 1 
V #STACK, SP sRESTORE STK PTR 
ISR PC, SUBCLR 
ai ERROR 24 ;CERR AFTER SCLR 
5 soa] RSE Chey 
BIS 
at BYs SRL RACSE RE) 
S36 000006 MOV SECTOR’ RKDSCRED 
oe 007354 ney #< wi ,HCS1 
4 JSR PC :DO DATA X FOR CMD 8 GET CONTR RDY 
2320 ERROR :NO ROY Y AFTER WRITE CHECK CMD 
SR GSTAT T FRESH STATU 
007354 BIT eCERR,HCS1 
2 007356 Br BWCE,HCS2 ;SEE IF WRITE CHECK ERROR 
5356 0014S2 MOV RKOB(RS) WO 1 s ACTUAL WORD FOR PRINTOUT 
001454 MOV DATAD, WDe XPEC ED WO WORD FOR TYPEOQUT 
328 ERROR WCE ar Ten WRIT 
53s 72S: ERROR 22 sCERR AFTER WRITE CHECK CMD 
3 007444 Mov #<0!D.SPIN!D.ORDY!0.VV!D.DRA>,E.AD ;EXPECTED MSG AD 
S 007450 MOV #< .SPOK!D.CART!0. .BRHM!D.SSP>,£.Al ;EXPECTED Al 
007452 MOV #1.€.B1 i6 FOR EXPECTED MSG B1 
0074S6 Mt a2. 6-B2 fee | D FOR Ex CTED MSG B2 
007462 MOV + * XPECTED MSG B32 
ISR PC. CHKMSG sCHECK MSGS AO, BO, Al, Bl 
‘WORD T.A2!T.Be!0 -& MSGS SPECIE TED HERE 
ERROR $7 MSG a0 é OR AFTER WRITE CHECK CMD 
RROR l im H BO ERROR 
ERROR 60 SG Al ERROR 
RROR 32 : MSG ed ERRO 
YPE MSG26 : ABORTIN Bar OF TESTS 
IMP $e OP 


— | —_ 





- eee 


CZR6IEO UNIBUS RKE DR PRTe MACY11 30A(10S2) 10-JAN-78 11:25 PAGE 103 SEG 0103 
CZR6IE.P11 10-JAN-78 09:43 . TiS WRITE WITH HEADS OFFSET 


026Se4 73$: 
012737 MOV #<0!D.SPIN!D.DRDY!D.VV!D.DRA>,E.AO ;EXPECTED MSG AD 



















CLR E. -E D 
et 007450 MOV s Bo cpoK!D. CART! A HOOK BUBRHM! B-SSP> .£.A1 sEXPECTED Al 
MOV a! E.B1 :MSG 1D FOR EXPECTED MSG B1 
eae? che ESP po Was Pol BPE cteD MSG B2 
2388 MOV #3,€.83 -MSG ID FOR EXPECTED MSG 83 
J M - CHECK S l 
eda? FB RO Fo SERS 0 , = mene BB Tete HERE 
eas 7 ; MSG a0 2 AFTER WRITE CHECK CMD 
l > MSH 
0 -MSG Al ERROR 
$395 32 -MSG Bl ERROR 
RO, #260 
a BY ;BR IF JUST DID POS OFFSET 
393 #60, RO ‘ELSE SETUP FOR POS OFFSET 
y 
4 es: 
4y 
MOV 
sv0s MoV 
Mi Mee ;DO RECAL CMD & GET CONTR RDY 
333 ERROR *RDY NOT SET AFTER RECAL CMD 
4] MOV #1,RKMR1CRS) -SELECT WORD 1 
4] JSR PC, GSTA 
S41 BIT #0.RTZ, HMR2 
4] BNE 74§ 
414 ERROR aus ;RIZ NOT SET DURING RECAL CMD 
41S 74S: MOV 10, TEMP2 ‘SETUP TIMEOU 
S416 71 JSR PC,FATTI sFIND ATTN 
eve 02671 ERROR Ss :-NO ATTN AFTER RECAL CMD 
418 026716 MOV BCCLR,RKCS1(RS) 
4g0 7 MOV RKCS2(RS) ;DRIVES 
4 : ? MOV HCS1 
4D ? ISR D :DO DRIVE CLEAR CMD & GET CONTR RDY 
423 744 1 1 ERROR 1 -NO RDY AFTER DRIVE CLEAR CMD 
4 e278 a3 032602 TSR PC, TSTATN : TEST FOR ATTN 
426 026754 104154 ERROR 154 :ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
pie? 026756 75S: 
428 
5429 
e130 026756 3$: 
43] 


ed _<ec-t its.  Aei. ‘.i. LLLLL,L lll LLL, BB LLL LLL AB LMBLBLL BLL ABLLBAL_ LE I OOF LLL ee ee eee 


Tt i 


. ET Ei | A TL TT 
<< eee ee ee ee ee a ee ee 


EReIE. 


0 eee RK 
ro 
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012737 
005037 


PRTe2 
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000001 
001100 


001170 
001436 
001422 
034214 


000200 
035700 
0275874 


010340 
007446 


MACY11 va eet 


001174 


000004 
000010 
000002 


007354 


007354 


007370 


007444 
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TEST CURRENT CROSS-OVER CYLINDERS 


Seer eee teat eet CURRENT CROSS-OVER CYLINERS 


; ATES TEST CURRENT CROSS-OVER CYLINDERS 

5 THIS S TEST FIES THAT THE ORIVE AN WRITE & READ OFF 

: MERGE INDERS X & Y IN THE FOLLOWING WAY: 

; a SPIRAL WRITING 1S PERFORMED FROM CYLINDER x TO CYLINDER Y 
; WITH A DATR PATTERN FILLING THE ENTIRE 2 CYLINDERS. 

: i A WRITE CHECK IS THEN PREFORMED TO VERIFY DATA WAS PROPERLY WRITTEN. 
i THIS TEST IS PERFORMED FOR ALL 3 HEADS. 

: i CYLINDER X: 63 127 13 e55 319 383 RKOG 

; CYLINDER Y: 64 128 SB 320 384 RKOS 

: CYLINDER X: 127 255 383 S11 639 767 RKO7 

; CYLINDER Y: 128 256 384 512 640 768 RKO? 

i ALL ABOVE CYLINDERS IN DECIMAL 

4 

+ 


” (eg *gmgegeammampmiments ec pug aera tmaimiciaias inate NIE 


STitb 








SES 0104 


V #1. STIMES ;;DO 1 ITERATION 
MOV aSTACK, SP 
TST STMPY | -SEE IF BKo7 
BEQ S$ iBR IF NO 
MOV #CYL7,RO LSE LOAD UP RKO7 TABLE 
S$: MOV sCYL,RO -RKO& CYL ADDR TABLE 
1S: JSR PC, SUBCLR 
ERROR 24 ;CERR AFTER SCLR 
MOV Sr 1a" 
MOV ATA PATT 
BIS o ADDR. RNCREMENT INHIBIT 
MOV APee> sWORD COUNT TO SPIRAL & FILL 2 CYLINDERS 
MOV ¥<uRDATA>, HS! 
ISR PC, DATCMD :DO DATA X FOR CMD & GET CONTR RDY 
ERROR 11° *-NO RDY AFTER WRITE DATA CMD 
ISR PC. GSTAT :GET FRESH STATUS 
BIT acer ,HCS1 
BEQ ;BR IF NO ERRORS 
BIT #BSE, HER E IF SECTOR FLAG 
BEQ Be , i BR 1 NO 
JSR PC. TRUERR ET SE SEE IF SECTOR LISTED IN BSE TABLE 
BR 66$ : RE TURN HERE IF NO 
JMP 3$ :RET HE RE IF YES 
6S: ERROR ile RR WITH WRITE DATA CMD 
MOV #<O0!D.SPIN!D.DRDY!D.VV!D.DRA>,E.AO ;EXPECTED MSG AD 
CLR E.B0 -EXPECTED MSG’ BO 


or 
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CZR6IE.P11 10-JAN-78 09:43 T16 TEST CURRENT bhes -OVER CYLINDERS 
134 Ol 17 007450 MOV #<D.SPOK!D. CART, DOOR!D.BRHM!D. .Al ;EXPECTED Al 
714 i oo74Se2 MOV a5: Bl FOR EXPE MSG B1 
St l ns 007456 a ie MSG 
71 1 007462 MOV as, 3 BS MSG BS 
170 7 033042 ISR PC. CHKMSG BI 
174 r.Ae!T. B2!0 tED HERE 
? 1 ERROR ITE DATA CMD 
1 RROR 23 
l 
l RROR 25S fc nS¢_B1 ERROR 
045354 YPE MS NG BAL OF TESTS 
1 1 031452 IMP $eop 
3 104063 66S: ERROR 63 on SECTOR NOT LISTED IN TABLE 
SSO4 : 
Sos 007444 MOV #<0!D.SPIN!D.DORDY!D. vv? phe Bi .AO ;EXPECTED MSG AD 
CLR E.B0 6 oon. 
50 0074S0 MOV #<D.SPOK!D.CART!6 Boe EAL. , sEXPECTED Al 
ee 7 007452 MOV #1.—.B1 Peet feb 0 FORE CTED'MSG B 
CLR E. S EXPE 
5S1 7 i 007456 MOV #2,&.Be2 fe fo Pon CTED MSG Be 
S ¥ 7 1 007462 MOV #3,£.B83 ID FOR EXPECTED MSG B83 
5513 ? ISR PC. CHKMSG sCHECK MSGS AD, BO, Al, Bl 
5514 ; T.Ae!T.Be!0 -& MSGS SPECIF LED RE 
5515 i ERR S2 ;MSG 3 AFTER WRITE DATA CMD 
216 104023 ERROR 23 MSH ERROR 
l 1 ERROR 33 i MSG Al ERROR 
18 1 ERROR -MSG B1 ERROR 
G 1 MOV ( 
bps 7310 b 001508 90004 Mov spat RKERCRS) 
e523 l ByEDSD BoDDoS MOV weg BKC Se (F , RKWC (RS) 
SSe5 012737 007354 MOV #<WRTCHK> ,HCS1 
S526 737 JSR PC, DATCMD :DO DATA X FOR CMD & GET CONTR RDY 
O15 ROR -NO RDY AFTER WRITE CHECK CMD 
5Se8 7346 SR PC. GSTAT :GET FRESH STATUS 
52 LA 007354 BIT BCERR, HCS1 
55 z 2737 007356 BIT #WCE, HCS2 ;SEE IF WRITE CHECK ERROR 
016537 0014S2 MOV RKOB (RS) WD1 sACTUAL WORD FOR PRINTOUT 
013737 001454 MOV DPAT1,WD2 -EXPECTED WORD FOR TYPEOUT 
104016 ERROR 16 ;WCE AFTER WRITE CMD 
BR 69S 
68S: ERROR 22 sCERR AFTER WRITE CHECK CMD 
012737 010340 007444 MOV #<O0!D.SPIN!D.DORDY!D.VV!D.DRA>,E.AO ;EXPECTED MSG AD 
005037 007446 CLR E.BO -EXPECTED MSG’ 
012737 001720 o0074S0 MOV #<D.SPOK!D. CART. DOOR!D.BRHM!0.SSP>,E.Al ;EXPECTED Al 
012737 oO00001 007452 MOV #1,€.B1 MSG ID FOR EXPECTED'MSG B1’ 





COS 
Set  osgANe7e 09:43) SPRETOSS) TAP aGRRENT CROSS-OVER CYLINDERS ee ce 














Serie Oster 745 oY Re TT PEE teD 
815539 pOe4eS MOV STE SBS iMeG 1D FOR EXPECTED Mae BS 
737 ISR PC,CHKMSG, sCHECK MSGS a0 BO oft Bl ne 
ay ERROR 57 ;MSG a0 ERROR SFE E CHECK CMD 
1 1 ERROR 31 -MSH BO 
1 ERROR BC Mas Al 1 ERROR 
1 RROR 5681 
1 TYPE MSG26b i ABOR ING BAL OF TESTS 
IMP $eoP 
a 695: 
22g ae MOV #020. .SPIN!D.DRDY!D. sEXPECTED MSG AD 
Beet 1 MOV #<D. SPOK!D. CART!6. DOOR .SSP>,E.Al ;EXPECTED Al 
sees BE37 HOY 1,€.B81 }. CTED' MSG Th 
4 1 MOV -MSG CTED MSG Be 
bees 012737 MOV -MSG ID FOR EXPECTED MSG B3 





JSR PC. CHKMS > CHECK B80, Al 
den GME sag “Teste FER HR TED HEB cn 


aman 
ae 
= 








4 
2270 ERROR 31 
57 ERROR 60 a yt RROR 
Be? 7e7e RROR 32 MSG G Bi RROR 
3S: MP (RO)+, #383. YLINDERS DONE? 
5574 7600 BEQ 4g ‘BR 
5575 7602 IMP 1$ ‘ELSE REPEAT 
5577 4g: 
a re 
000010 MOV 
5 007354 MOV 
JSR sDO RECAL CMD 8 GET CONTR RDY 
3 ERROR *RDY NOT SET AFTER RECAL CMD 
oo0026 MOV KMRL (RS) :SELECT WORD 1 
JSR pC’ GST 
S87 007402 BIT oe , HMR2 
589 RROR eds sRTZ NOT SET DURING RECAL CMD 
S 007414 70S: MOV 10, TEMP2 i SETUP TIMEOUT 
JSR PC FATT -FIND ATTN 
ERROR SS -NO ATTN AFTER RECAL CMD 
027676 012765 000000 MOV #CCLR,RKCS1(RS) 
7704 137 3 00102 900010 MOV SUNIT.RKCS2(RS) ;DRIVES 
erie ? 500 005 7354 MOV CLEAR, HCS1 
77 4737 JSR PC DOCAD :DO DRIVE CLEAR CMD 8 GET CONTR RDY 
027724 104151 ERROR 15] "NO RDY AFTER DRIVE CLEAR CMD 


027726 004737 032602 JSR PC, TSTATN -TEST FOR A 





-_—- eee wee ae +e 
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001100 
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001174 
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T16 TEST CURRENT CROSS-OVER CYLINUERS 
71$ 
— PRROR ia sATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
es: 
: ae ee oe ee 
; ATEST 17 TEST HEAD SWITCHING TIME 
; TESTS THE ABILITY TO SWITCH HEADS IN LESS THEN 1OMS WHEN HEADS SPIRAL. 
:# 1. SECTOR 23(8) Is FIRST LOCATED AND A WRITE DATA COMMAND OF S12 WORDS 
HE SMa Aorta ena” 
- SINE, BRE HSER OR IME COMMEND. cPROR SECTOR 258) spHEAD O; 
; SECTOR 0, HEAD 1) AND CONTROLLER READY 
: THE ABOVE IS REPEATED FOR HEAD SWITCHING BETWEEN 1 TO 2 
; THIS TEST IS BYPASSED IF NEITHER L OR P CLOCK IS PRESENT 
: - FEKFSSKRSEESSESSSRASREAARAREARAESRSARARERARERAARARARAARARAAAARAARARRAAREE 
+éT17: SCOPE 
V #1 STINES ::DO 1 ITERATION 
MOV astac 
TST DOTIM ;BYPASS THIS TEST IF 


ee ee eee 


a A A LT RR — — eee 
TT _— 


EOS 


gee tee UNIBUS RK6& DR PRT2 MACY11 30A(10S2) YS gel aay 1:25 PAGE 108 SEQ 0108 
CZR6IE.P11 10-JAN-78 09:43 Ti? TEST HEAD SWITCHING TIME 


630 7 001001 BNE $ ;NEITHER L on P aoe PRESENT 
31 77 000S26 BR ST20 ;;GO TO NEXT TES 


OD 


ae 


agatatcat at at at at at at at 
NOLO ODO NOU Lure 





SeecRReDee ho 


NNN 


Wr 





adalat ata at alata 
BOOS 


Bees 


ee 
S 


84 
8S 
686 
5687 


















s-. = 
hh hh he he 





OFSORE KLe TORNRSA 





Se 


TVLVE WO 


Be 


——— -_ 





0074 


0004 
0277 





ee 


58 
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007422 


900010 





007384 
0 


0074 1e 


007354 


007444 


7450 
74Se 


0074S6 
007462 


0004%eS 
00742e 


10-JAN-78 11 PAGE 109 

TEST HEAD SWITCHING TIME 
1$: MOV #25. TEMPS sHEAD 0, SECTOR 21 TO BE PUT IN RKDA 
2s: JSR Pc, SUBCLR 

ERROR 24 ;CERR AFTER SCLR 

a.m we SEANNOT FING SECTOR 23 

BR t 20 G0 +0 NEXT FEST 

MOV TAQ1,. RKBA(RS) ;DATA O101 

BIS sB81 ,AKES=( RS) -BUSS ADDR INCREMENT INHIBIT 

MOV #-S12. .RKWC(RS) ;WORD c T 

MOV T RKDA(RS) ;:HEAD & SECTOR 

MOV ta HCS1 

BIS STMPY.HCS1 

MOV HCS!,RKCSI(RS) ;DO WRITE DATA CMD 

MOV #4000, TEMP 1 ;2000 IS _IN VER 

C TO 4000 a bEC-77 

ISR PC, DLY :DO DELAY 
7$: BIT WRDY,RKCSI(RS) ;LOOK FOR CONTROLLER READY 

ISR PC, FRDY :FIND RDY AND GET FRESH STATUS 

ERROR l ?NO RDY AFTER SEL DRV CMD 

ISR C.GSTAT 

ERROR 107 sHEAD SWITCHING LONGER THAN DELAY 
QS: BIT #CERR,HCS1 

BEQ 3$ 

ERROR :CERR AFTER WRITE DATA 

MOV #<0!D.SPIN!D.ORDY!D.VV!D.DRA>,E.AO ;EXPECTED MSG AD 

CLR E. q 3 D MSG 

MOV 8<D. SPOK!D.CART!D. 'D. ’ .SSP?,£ Al sEXPECTED Al 

MOV #1.€.B81 -MSG I EBR : ED'MSG B81 

che Efe Be Fi | Of EXPECT MSG B2 

MOV #3,£.83 ise K FOR EX G TED MSG B3 

JSR PC. CHKMSG ;CHECK MSGS AO, BO, Al, Bl 

. WOR oOo -& MSG ciF LED HERE 

RR Se - MSG ER WRITE DATA CMD 

RROR 3 > MSH ERROR 

ERROR 53 -MSG Al ERROR 

ERROR eS -MSG Bl ERROR 

CMP TEMPS, #425 sHEAD 1,SECTOR 21 DONE? 

BEQ S ::GO TO’ NEXT TEST 

MOV #425, TEMPS 

IMP 2$ sELSE REPEAT FOR HEAD 1, SECTOR 21 


3$: 





















. > SEEKER EEREEKLERERRESARLRRARRAAAARALAARARLRAAARAELALHLLHRARRRRERERE 


-&TEST 20 


DRIVE OFF TRACK TEST 


SES 0109 


<a eee eee eee ae ee C+ 
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ee ele eee — - 


10-JAN-78 i1:25 PAGE 110 SEQ 0110 


MACY11 30A(10Se2) 
DRIVE OFF TRACK TEST 


a2 
2 
5 
oe 
B 
om 


“A al Fates ame FOR SERVO OSCILLATIONS DURING SETTLING TIME BEYOND 


INT TIALLY. ‘eae are IS FORMATTED WITH IDENTICAL HEADERS 









fae ee "Bre oenrs fae next SECTOR YOALSINGLE CYL SEEK FROM 0 TO 1. 


ae THERE TS OSCILLATION SENSED BY READING THE TRIBITS, 


— <<a = ee eee eee - —=» 


me ee ee ew 


CUNUUUNNN B 


PALER SEERA LORS OSS | 











meee ee eee —_—\rae - 








+: ae 4 
Um eC ee tu 


IN THIS MANNER OSCILLATING SEEKS ARE 


BPPORE BOING THE NEXT CYLINDER EACH RAJOR 






ORMED BETWEEN ALL MAJOR CYLINDERS. 


3? CYLINDER 
*4 
E7 o FEKESSESSESERESSSASKSRSAAAAAKRAARAAAAAE SE RRRARAAAAARARERAARAARARARRLEE 
e- B79993 _ Rov 
, S , 000001 001174 V #1, STIMES -DO ITERATION 
88 
oes mea DDS ING HD ‘ RESTORE VALID HALT 
oe ic 12737 100000 007422 MOV eBIT1S, TEMPS 
71 1S: R PC, SUBCLR 
715 2BROR 24" :CERR AFTER SCLR 
215 MOV #HOTAB, RO sFORMAT HEADERS ON ALL MAJOR CYL. 
717 2s: MOV TOCYL, (RO)+ R # 
71 MOV #140080, (RO)+ een ee 1: 6 ALL SECTOR 0 
? MOV ai (RO) 
g BIS YL, CRO) + 0 ionp2 
5786 CMP RO, #HDTAB+132. one 22 SECTORS DONE? (22x6=132) 
2783 BNE 2$ :BR IF NO 
7 mC u MOV AB. RKBACRS) 
oe Re 
Tat 0002 MOV TOCYL, KDE (RED 
5769 7 007354 MOV AD>,HCS1 
57 JSR C.DATCMD’ ;D0 DATA X FOR CMD _& GET CONTR RDY 
? RROR a :NO ROY OF TER WRITE HEADER CMD 
5 007354 ait acer "hes! — 
030400 BEQ 
Oe RR eat iC RR AFTER WR Te TPESQER CMD 
YP MSG26 ‘ABORTING BAL TEST 
io MP $e oP 
030414 64S: 
4 137 742 ROL TEMPS ARRY ONLY ONC 
eictefttte 139 Bb, 346 ROL TOCYL Ele T REF MAJOR BL 
030424 023737 OO1346 015436 CMP TOCYL,MC1 :ALL MAJOR CYL FORMATTED? 


’ 


ee er 








030432 


001316 
030434 OO0SO06S 


bonra? Oaeee4 


104131 


ie 


BB1431 


104210 





032737 
Rants 
10401 


he 


Bb5037 


100000 





At 


030674 


—_—_ me —_—— A i. il, 





HOS 
MACYI1 39961052) $0 EIB NR Bold? Fp g7 MGE 111 


007354 


00741e 


007354 


001346 


001354 





007354 


007404 


007354 


007444 


007450 
0074Se 


007456 


6S$: 


S$: 


6$: 


BNE 
CLR 


1$ 
RKDC (RS) 
eSEEK ,HCS1 


PC. DOCMD 
121 


Beopanysen" 
132 


—— 
210 






a TOCYL 
FRCYL 
wSTACK, SP 
TOCYL , CALDIF 
PC, SUBCLR 
24 


Sera ee 
ra a 


#WROATA, HCS1 
PC, DATCMD 








PC,GSTAT 
#0. DROT, HMR3 


S$ 

lle 
#CERR,HCS1 
6$ 

le 


D0.SPIN!D.DRDY!D. vv! AO 
E. “BO bab NSG 
#<D.SPOK!D. cans b. 00 


~ 


#1.E. 
E.Ae 
#2,£.B2 


SES J111 


-BR IF NO 
»SETUP TO RETURN TO CYL O 


;D0 SEEK CMD & GET CONTR READY 
:NO ROY AFTER SEEK CMD 


FIN 1ateous 


NO ATTN AFTER SEEK CMD 
;CERR AFTER SEEK CMD 


s ATERSTION COUNTER 
;SETUP TO CYL & 


;RESTORE STK PTR 
;SETUP FOR ERROR PRINTOUT 
;CERR AFTER SCLR 
sg? TO CYL #& 
. a°s 
; SECTOR TO BE ALL 1’S 


RS HBSS PEAR DA ERT® POY 


GET FRESH STATUS 
:SEE IF DRIVE OFF TRACK 


;ORIVE OFF TRACK AFTER WRITE DATA CMD 


;CERR SET AFTER WRITE DATA CMD 


;EXPECTED MSG AD 


aae' ore Al 
FOR "EXPECTED MSG B 

i OPE ED MSG 

;MSG ID FOR EXPECTED MSG Be 


OS 








O UNIBUS RK& DR PRT2 MACY11 30A(10S2) 10-JAN-78 11:25 PAGE 112 SEQ O112 
Pll 10-JAN-78 09:43 T20 DRIVE OFF TRACK TEST 
030702 012737 oo0003 o0746e2 MOV #3,€.83 :MSG ID FOR EXPECTED MSG B3 
? 033042 JSR PC, CHKMSG :CHECK MSGS AD al, 8 
.WORD T.Ae!T.Be!0 & MSGS SPeciF te teD 
i ERROR £5 :MSG AD ag ERROR AF aye CMD 
1 ERROR 22 ;MSH BO ERROR 
1040S3 ERROR 53 -MSG Al ERROR 
Ges ERROR 25 -MSG Bl ERROR 
3 001360 00:346 CMP CYLADD, TOCYL 
1401 BEQ 7g 
104113 ERROR 113 ;CYL ADDR IN RKMR3 NOT = RKDC 
73: 
104415 SCOP 1 
012706 001100 MOV eSTACK, SP ;RESTORE STK PTR 
004737 034214 JSR PC, SUBCLR 
Ppuos4 ERROR 24 :CERR AFTER SCLR 
sRETURN TO CYL O 
012765 001500 oo00004 MOV #DATAL, RKBACRS) 
62 052765 000020 000010 BIS #BAI, RKCS2(RS) 
0307 012765 177400 o00002 MOV 8-256. , RKWC( CRS) 
030776 012737 o00023 007354 MOV #WRDATA, HCS1 
031004 004737 032262 ISR PC, DATCAD :DO WRITE DATA CMD & GET CONTR RDY 
031010 104011 ERROR 11 -NO RDY AFTER WRITE DATA CMD 
1012 004737 033664 JSR PC, GSTAT :GET FRESH STATUS 
1016 032737 O20000 007404 BIT #0: DROT, HMR3 
1838 001401 BEQ 8$ 
1026 104112 ERROR ile sDRIVE OFF TRACK AFTER WRITE DATA CMD 
031030 032737 100000 007354 28S: BIT #CERR,HCS1 
- 1036 OO1401 BEG 3 
31040 104012 ERROR i2 :CERR AFTER WRITE DATA CMD 
031042 9S: 
031042 0 010340 007444 MOV #<0!D.SPIN!D.DRDY!D.VV!D.DRA>,E.AD ;EXPECTED MSG AD 
l 007446 CLR E.B0 q 3 XPECTED MSG’ BO 
O31 4 bie? 7 001720 007450 MOV #<D.SPOK!D.CART!0.DOOR!D.BRHM!D.SSP>,E.Al ;EXPECTED Al 
l 12737 0061 007452 MOV #1.—.B1 : 0 FOR EXPECTED’ ASG. Bl 
Os to74 BY 737 ate 0074S6 abv E Ae Be SG TD POR EXPECT MSG Be 
bai ta2 515535 000003 007462 MOV #3/E.83 : MSG FOR EXPECT RTED MSG B3 
1110 737 033042 JSR PC, CHKMSG ;CHECK MSGS AO, BO, Al, Bl 
1114 3 WO T.A2e!'T.Be!o -& MSGS SPECIF LED HERE 
1116 1040Se2 ERR S2 :MSG AO ERROR AFTER WRITE DATA CMD 
il 104023 ERROR 23 ;MSH BO ERROR 
lle2e 104053 ERROR 53 -MSG Al ERROR 
giles O28 RROR 25 -MSG Bl ERROR 
11 S737 001360 ST CYLADD 
031132 001401 BEG 10$ 
031134 104042 ERROR 42 sNOT BACK TO CYL O 
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CZREIEO UNIBUS RK& OR PRT2 
CZREIE.Pi1 10-JAN-78 09:43 ORIVE OFF TRACK TEST 
2825 fr 10$: INC RO 
Sg 14 000144 CMP RO. #100. ;ALL_ ITERATIONS DONE? 
144 60140e BEQ 13$ YES 
146 137 030532 IMP 3$ -ELSE DO AGAIN 
25 1 138: CLR RO :RESET ITERATION CTR 
S 154 001346 ASL TOCYL 
5864 l 1346 015436 CMP TOCYL,MC1 sALL MAJOR CYL DONE? 
5 1166 BEQ FORM -BR IF YES 
il 030532 IMP 3$ -ELSE DO NEXT CYL 
2868 74 001176 FORM: CLR SESCAPE 
S86 1200 001346 CLR TOCYL »RESTORE TO ORIG 22 SECTOR FORMAT. 
2870 1204 100000 007422 MOV #BIT1S, TEMPS 
587¢ 931212 034214 12$: JSR PC, SUBCLR 
2873 lel ERROR 24 ;CERR AFTER SCLR 
5875 o31220 01276 09 S22 000004 MOV #HDTAB,RKBA(RS) ;REFORMAT ALL MAJOR CYLINDERS 
5876 O31 sé 1276 i? 76 0000 MOV 8-66. , RKWC(RS) 
2877 1 1376 0000 MOV TOCYL; RKDC (RS) 
5879 124 013737 901346 001362 MOV TOCYL , CALADD : SETUP 
2880 15e5 12737 000000 001460 MOV #0, :TO FILL 
8 1256 012737 590000 001466 MOV #0; FORMAT * HEADER 
288 1264 004737 le JSR PC’ FHDTAB : TABLE 
Seay 
Sees 031270 2737 000027 007354 MOV #<WRHEAD> , HCS1 
5886 l 737 O3ecb2 ISR PC. DATCMD -DO DATA X FOR CMD & GET CONTR RDY 
2887 1 4200 ERROR -NO_RDY AFTER WRITE HEADER CMD 
1 033664 - JSR C¢. GSTAT ‘GET FRESH STATUS 
3889 1310 737 100000 007354 BIT #CERR,HCS1 
Se 131 140S BEQ 64§ 
283 l 104 l ERROR e201 -CERR AFTER WRITE HEADER CMD 
1 104401 o4S354 MSG2e6 ‘ABORTING BAL OF TESTS 
58g 31326 000137 0314Se2 IMP $E0P 
5894 031332 64S: 
eBae 
1 137 007422 ROL TEMPS 
5898 1 SOE 37 001346 ROL TOCYL 
5899 1 023737 OO1346 015436 CMP TOCYL,MC1 ;ALL MAJOR CYL REFORMATTED? 
5300 1 001320 BNE 12$ ‘BR IF NO 
2202 031 CLR RKDC(RS) ;SETUP TO RETURN TO CYL O 
5 1 CLR SESCAPE 
2ape 1 012737 000017 007354 MOV #SEEK.HCS1 
5308 313 004737 O32224 ISR PC, DOCMD :DO SEEK CMD & GET CONTR READY 
2207 l 104131 ERROR 131 -NO RDY AFTER SEEK CMD 
5909 031376 013737 OO1420 oO7YI1e2 MOV TSOOOO, TEMP1 :SETUP TIMEOUT 
S910 031404 004737 032730 JSR ¢ FaTte > FIN 
5911 031410 104132 ERROR 132 -NO ATTN AFTER SEEK CMD 
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WOONCU CW Mm 


036262 
007340 


MACY11 30A(10Se) 
Te0 


007354 


6S$: 


4$: 


OS 


10-JAN-78 11:25 PAGE 114 
DRIVE OFF TRACK TEST 


#CERR, HCS1 
210 :CERR AFTER SEEK CMD 
HPEND : SEE IF HALT PENDING 
HPEND :CLEAR FOR FUTURE FORMATTING 
BADHOR ‘HEADERS NOW OK 
TOP :GO BACK & HALT CPU 
BADHDR sHEADERS NOW OK 


SEQ 0114 


——— -_ 














CZREIEO UNIBUS RK& DR PRT2 MACY11 30A(10S2) 10-JAN-78 11:25 PAGE 115 SEQ O115 
CZR6IE.P11 10-JAN-78 09:43 END OF PASS ROUTINE 
5368 .SBTTL END OF PASS ROUTINE 
LINCRERENT TE Pes KER (ePASS) 
5931 : KING PASS R ($PASS) 
E END PAS BXXXXX" CAME RE XXXXK IS A DECIMAL NUMBER) 
THE THERES, SOE 98 Hat 
a34 T ISN" 
3338 0314S2 SEOP: 
3 14 SCOPE 
1454 CLR 
l 001174 MOV 
94 1466 MOV 
224 1uze INC : INCR COUNT FOR # DRIVES CHECKED 
3 4 001220 cre ‘ARE ALL DRIVES PRESENT TESTED? 
5945 031508 fics :BROIF TEST NEXT DRIVE PRESENT 
531 SEOP1: SCOPE 
eat 531 me eth + RO T THE NUMBER OF R F ERATIONS 
. 531 Fhe + SRC EMENT SHEP ge AUR BER 
3" 001216 BIC ;;DON’T ALLOW A NEG. NUMBER 
2 3} DEC : LOOP? 
431 SEOPCT: . WORD 
$953 iS4e BGT SDOAGN ;;YES 
4 4y MOV (PC)+,a(PC)+ ;:RESTORE COUNTER 
5 SENOCT: SURE, 
4 ieee paieie move gece (SP) A UE sprss F F +P 
3 O318e8 TYPDS ‘ He ees Asclt WITH SIGN 
ae flere Giivy SSN = scerues By 
2ap5 p31259 BEQ Bede te NOU eectToe 
2b3 l RESET -: CLEAR 
4 1 SENDAD: J PC, (RO) : GO TO Ut 
S965 l NOP -SAVE ROOM 
5366 l NOP 
36 1 NOP 5 sEOR 
268 161 SDOAGN 
oe 161 a(PC)+ ; ; RETURN 
egoy eae 377 000 SENMULL: {6 ‘BYT et | »-NULL CHARACTER STRING 
5976 Oaig 7 042412 O42116 SENDNG: Bye <18) {12> “END pass’ #7 
S97 031624 051501 OdO2012e3 
75 HATING LOOP FOR THE APT MODE 
931634 900001 001230 &7 CMPB #aPTENV, V, SENV 
G3 ee 001216 oo0002 CNP SPASS, #2 ;TWO PASS DONE ?,AS REQUIRED BY 
ta 001102 1S: N STNM , INCREMENT THE TEST NUMBER 
031660 BR $ s WAITING POOP POR APT TO DUMP NEXT PROG 
031662 013356 2s: IMP STs *RETURN TO MAIN LOOP 
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CZR6IE. 
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007464 
177757 


001230 
001140 


000001 


000070 


177770 


MACY11 30A( 1052) 


000001 
000176 


001134 


MO9 


10-JAN-78 11:25 PAGE 116 


SUBROUTINES 
.SBTTL SUBROUTINES 
; SUBROUTINE TO CLEAR ALL FLAGS FROM DDUMP THRU DOTIM 





CLRFLG: MOV SODUMP , RO 
MOV #-17.,R1 
1S: FcR (RO)+ 
NE é 
BNE 1 
RTS PC 


TYPE PROGRAM ID IF FTITLE=0 


TITLE: TST FTITLE 
INC 
.SBTTL UF vse FOh SOF TWARE shiTen RecTSTER 
TST UNNING UNDER XXDP/ACT? 








tr ‘s Rens ey 
SENV, #1 RUNNING UNDER APT? 
, #SWREG fea suTTCH REG SELECTED? 
65S : : BRANCH 
GTSWR aon ::GET SOFT-SWR SETTINGS 
bus: #1, SAUTOB ;;SET AUTO-MODE INDICATOR 
1S: PC 
i ROUTINE TO INPUT DRIVE NOS. TYPED IN 8 SET 
:DRIVS, DRIVO-DRIV7 REGISTERS APPROPRIATELY 
GDRVS: LIN 
Rov (SP)+,RO ; GET STARTING ADDR OF ASCII STRING 
1S: M (RO)+. Re IGET ASCII CHAR 
Bice #177400, Re - MASK AY ASE 
MOV sORTVO,R :DRIVE FLAG ADDR 
2$: CNP Ra, Re was TYPED SY CHAR O THRU 7? 
TST (R3)+ NO, INCREMENT DR FLAG ADOR 
CMP R4, #70 
BN zt :S/B 0-7 OR TERMINATOR 
ug 
CMP R1,#-8. 
BEQ 6S ;DEFAULT ALL DRIVES 


ee . . 


SEQ O116 


——— « ——- — 
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CZR6IEO UNIBUS RK& DR PRTe 
CZ2R6IE.P11 10-JAN-78 09:43 


on daa 


007474 
77400 
4 


Bissec 





a LN oe ee - 


= 
oe 
oh 
Ht 
s 
a3 
3 
: 
i 


007524 
el O441e 
st 12600 
1 709 
32136 01003 
1 10037 001264 
el4 0207 
e144 012737 177440 
O3e1S2 000207 


Yaalzone 


: 
: 


NNN 


seReeSS 





4 ? 001314 
70 004737 032206 
ED O38 76 Ol 37 000210 
Paes 04 000771 
88 
032206 013700 001314 
O3eele Ole7e0 036720 


MACY11 ROA LORE 
GET 


001264 


001314 











0-JAN-78 1226 PAGE 11? SEQ 0117 
VALUE FOR SOFTWARE SHTTCH REGISTER 
75: CLR SIZFLG Pats TEST {SIZING} 
on Ne Rvs SINC RERENT. TOTAL aOR VES TO BE TESTED 
MOVB (PQ)s Re fee al ASCII CHAR 
ene s54. 4g, Re -1S IT 





a aes 


-” IP. PRGSRT gy 0-7, Lou. 
ne cha Rear om 


BR ug :IF NORE, HAVE ERROR. 
6S: INC SIZFLG -DO0 TEST 1 (SIZING) 
PC -EXIT. 


ROUTINE TO INPUT RKBAS OR DEFAULT. 
‘ 


GBA: = ROC 1+, RO ;GET LOW ORDER FROM STACK 


;BRANCH IF DEFAULT. 
MOV 0, SBASE 
1$: MOV ars, See ;DEFAULT VALUE 


ROUTINE TO INPUT RKVEC OR DEFAULT 
; 


GINT: RDOCT 


ney is P)+,RO ;GET LOW ORDER FROM STACK 
BEQ 1 ;BRANCH IF DEFAULT 
MOV RO, RKVEC 
es: J38 PC, , SETINT 
1$: MOV #210, RKVEC ;DEFAULT VALUE 
BR es 


SROUTINE TO SETUP INTERRUPT VECTOR & PRIORITY 


SETINT: MOV RKVEC 
MOV 


RO 
#INTER, (RO)+ s INTER ADDR TO RKVEC 


~— —— a — 


—— ew ew eae — - 


eee LL TT 


—_— —— ewe ee ee 


orn 





B10 | 


_CZR6EIEO UNIBUS RKE DR PRTe MACY11 30A(10S2) 10-JAN-78 11:25 PAGE 118 SEQ 0118 
CZR6IE.P11 10-JAN-78 09:43 GET VALUE FOR SOFTWARE SWITCH REGISTER 
32216 Bi 3210 001316 MOV RKPRI, (RO) ;PRS TO RKVEC+2 
eeee RTS PC 





ere 













JSR PC, HOLD 


ISR PC, CKCERR sCHECK FOR SPECIAL CERR 


* ROUTINE TO FIND CONTROLLER READY AND STORE DRIVE REGS. ONLY 


FH LWM—OOO VN Lev Ooo NOU Loe 





tRoy1: 


6100 
610 

61 :SET CDT IF RKO7 

61 -DO COMMAND 

6104 

61 sFIND CONTR READY 

61 -SET HERE IF NOT RDY 
610 ‘ELSE SKIP OVER ERROR 
188 

ett -THIS ROUTINE IS SIMILAR TO THE ABOVE BUT IS USED FOR DATA TRANSFERS 
elie °& REQUIRES AL R TIMEOUT 

611 262 053737 001170 007354 BATCMD: BIS -SET CDT IF RKO7 

6114 2 013765 007354 o00000 MOV "DO CMD 

6115 276 013737 001420 O0741e MOV 

6116 032304 004737 032320 ISR sFIND CONTR RDY 

611 32310 000207 RTS 

6118 eEETES 062716 ooo0002 ADD 

6115 032316 00020 RTS 

61 , 

61 ‘ROUTINE TO FIND CONTROLLER READY (RDY) DURING A DELAY 
61 * ENTER WITH AQ COUNT IN TEMP1 

61 ‘RETURN IF RDY_ NO PRESENT (ERROR CONDITION) 

61 -RETURN +2 IF RDY PRESENT (SKIP OVER ERROR) 

1 :STATUS IS OBTAINED BEFORE THE RETURN FOR EITHER CASE 
ol oo0000 FRDY: BIT Y,RKCS1(RS) 

3 Be rhe! 

61 ISR PC, HOL sSTORE ALL RK611 REGS IN HOLDING REGS. 
61 ISR PC’ CKCERR ‘CHECK FOR SPECIAL CERR 
61 RTS *NO RDY, EX 

ol 1S: ADD #2, (SP) ‘SKIP OVER ERROR 

61 

61 

61 

ei 

61 oo0000 BIT #RDY , RKCS1 (RS) 

61 BNE 

61 DEC TEMP 1 

61 BNE FRDY1 

61 007402 MOV RKMR2( RS), HMRe 

6147 007404 MOV RKMR3(RS) > HMR 

6148 JSR PC, CKCERR sCHECK FOR SPECIAL CERR CONDITIONS 
£150 1S: ADD #2, (SP) ‘SKIP. OVER ERROR 


ST 


CZR6IEO UNIBUS RK& DR PRTe MACY11 30AC ae 10-JAN- A Wah Pelle SEQ 0119 





CZR6IE.P11 10-JAN-78 09:43 GET FOR SOF 
6151 000034 007402 MOV RKMR2( RS), HMR 
209038 007404 MOV RKMR3 (RS), HMR 

ak JoR PC , CKCERR’ sCHECK FOR SPECIAL CERR CONDITIONS 


HOLD: Vv R.. 
MOV RKE 
MOV RKWC 

V Re 

MOV 

MOV RK 
MOV RKE 

MOV Rik 

MOV Fic 

: OE 

NOV ORK 

MOV Re 

MOV Rie 

RTS PC 





$ ROUT INE TO CHECK FOR eo ad ATTN 
TURN IF ATTN_NOT PRESENT (ERROR CONDITION) 
RETURN +2 IF ATTN PRESENT (SKIP OVER ERROR) 


+STATN: MOV R4,-(SP) -SAV RY 

MOV IT.R4 

BITB TTNCR4Y) , HASOF +1 

BEQ i$ :BRANCH IF ATTN NOT PRESENT 

MOV (SP)+.R4 *RESTO 

ROD ae, (SP) :INCR RET ADDR TO JUMP OVER ERROR. 
1S: MOV (SP)+,R4 :RESTOR RY 

RTS PC 
!ROUTI INE 


EM ATTN op at TIMES GREATER THAN 1 SEC 


TO F 
sRETORN TEND ATTN (ERROR CONDITION 


se ee be bb ee be ee be be be ee be ae ee Be be be be be be be he pe ee 


PEEP KOPN OPCPPO OPO O COO MSOK OOO S SOS SSOSOSOSOOSTrrrrrr 
DUH ODD VO LOH OD NOU LEO ds VOU OU uD WE LEO OED IOUT 







RET URN te iF ATTN FOUND 
s A TAINED BEFORE THE RETURN FOR EITHER CASE 
canta. MOV RY. -( :SAV RY 
177272 007412 3%: MOV a-1.T MP1 
122 MOV UNIT. RY 

b2 007344 OO0017 1S: BITE ATTN( RY) ,.RKASOF+1(RS) ;FIND CORRECT ATTN 
6 007412 DEC Tene 
6 BNE 
6206 007414 DEC TEMP2 





CZR6IEO UNIBUS RK& DR PRTe 


CZR6IE.P11 


6207 


ROO UrOrD ROROFORY 
W-Ow 


= pb bp pe 
NO UILW 


Porororo ro rororotury Furuno 
FOR Bao bur Ooo 





iatatitatathitatat 


DONE 





: 


wre 


Suu erat yee 


bebe 


033040 


dioa%e 
104403 


000207 


10-JAN-78 09:43 





007412 
007412 


04S243 


D 
1:25 


10 


PAGE 


;SE’ EC” WORD 0 
i Sed BEST STATUS 
: TOR i 4 


Si 


aol AFTER ATTN SEEN 
P OVER ERROR 


MACY11 30A(10S2) 10-JAN-78 11 120 
GET VALUE FOR SOFTWARE SWITCH REGISTER 
BNE 3$ 
CLR RKMRI CRS) 
ISR GSTaT 
V f +,R4 
RTS 
2s: CLR RKMRI (RS) 
ISR AaB 
(SP) 
RTS 





BIS ie ai! 


MOV 


parte: -(SP) 


pes 

PC MRA tae 

(SP)+,R4 

RKMR1 (RS) 

PC. GSTAT 

(SPs RY 
, (SP) 





1$: 


RTS 


NTER WITH 
EECB MAT 8 SPMD BS 
diy: 1ST TEMP 1 
Bec + 
DLY 
1$: RTS PC 


THIS ROUTINE TYPES BYPASSED DRIVES. 


BYP: TYPE MSG14 
MOV RO, -(SP) 
TYPOS 
Y : 1 
YT 0 
RTS PC 


B Balad RKASOF +1 (RS) 


Wy TERATION + l2 US TO EXIT 
AN 11/7 


BOHEANGDTR EBURN"TRAARY™ + SEC 


Sune THE RETURN FOR EITHER CASE 


;SAV R4 
;FIND CORRECT ATTN 


;SELECT WORD O 
:GET LATEST STATUS. 
;RESTOR RY 


;RESTOR Ru 
‘SKIP OVER ERROR 


ENTER WITH DRIVE® IN RO 


iF aevE RO FOR TYPEOUT 
; 30,7 “eoreH ee, ASCII 
ti CUBBRESS ADING ZEROS 


_——- ee eee ~_— -—e- 


SES 0120 


OO 
om 


SASCRRRREAR EARN CCC EE : 


a 
4 


s 
we 


14e 0137 


Br aS 
137 
nee 
7 
137 
Bo? 
737 
137 
oe 
7 
13737 


pete I 
137 


189 
4 023737 
¢ He 

AASae 





631 

att 

3} 

6314 777 
6315 1107 
6316 062716 
6317 

6318 023737 





UNIBUS RK& DR PRTe 
"PLL 10-JAN-78 09:43 











0 ise 
dards 
001176 
007424 
033336 


001000 
000002 
007426 


MACYi1 2 een fe 


0074 1le 
007444 
00741e 
0074S0 
00741e 
0074S4 
00741e 
007446 
007412 
0074Se 
007412 
007456 
00741le 
007462 


001172 
007444 
001176 


145574 


007446 


E10 


O-JAN-78 11:25 le 
OR SOFTWARE SWITCH REGISTER 


:THIS ROUTINE READS ALL MSG A & B WORDS & CHECKS THEM AS REQ’D. 
001520 ¢HKMSG: MOV 
ADD 


1S: 
es: 


Qa 


wowwow 
bot bt pt 
< HHWwWuwW oa 


3 


3( SP), CHKFLG 


ge, (SP) 
TATI 


TEMP1,-(SP) 


EAD TEMP! 
C, SBPAR 
TEMP1,E.AO 


Ps pat 


. come 
esi 


.B0, TEMP 1 
1,€.80 











mc> 
Bw 


om =om om 


UVU-srMr wo + 


#SW3, JSWR 
#2, (SP) 
H.B0,E.80 


; PASS MSGS TO BE TESTED 
RET ADOR TO 1ST ERROR 
SGET ALL ACTUAL DRIVE & CONTR STATUS 


;SET UNIT & 


;ADD DRIVE TYPE 
;SAVE TEMP1 


;GET PARITY FOR MSG AO 


;GET PARITY FOR MSG Al 


;GET PARITY FOR MSG Ae 


;GET PARITY FOR MSG BO 


;GET PARITY FOR MSG B1 


;GET PARITY FOR MSG Be 


;GET PARITY FOR MSG 83 


;RESTORE TEMP1 
;SAVE ESCAPE 


TEST MSG AO 

LSE SETUP ESCAPE 
Oey, TO MAINLINE ERROR 
;RET HERE FROM MAINLINE ERROR 


& BR IF LOOP ON ER 
: BUMP RET ADDR TO NEXT ERROR 


;TEST MSG BO 


SEO Ole21 


_—- 


- - —-— —— ewe 


OO 








Svar ce eee ee 


ee ee ee ee 


—- He 
WOW Mmm 


me 
— 
— 


cS fas) 1 Be os Se 





Ti 
£7 


ae 
Sti 


uw 
<= 


BAR 
Boe 


033610 
033616 
033620 


000207 





MACY11 30A(10Se) 
GET VALUE FOR SOFTWARE 


001176 


145S36 


007450 
001176 


14S500 


0074Se 
001176 


14S44e 


001520 


001520 


001520 


001176 


001176 


007354 


me 


4g: 
Ss: 


7$: 
8: 


10$: 
11$: 
12S: 


13S: 


14S: 


1S$s: 


20S: 


‘ THIS ROUTINE C 


:-I.£.: IF NED, CTO OR MDS SET MESSAGE A & B ARE INVALID 


Lone TST 
BNE 


10-JAN-78 il: PAGE le 
sf TCH REGI 1SFeR 


bey PY RET ADDR A tal 
TO MAINLINE ERROR 


4 San sees 


3 #0 


a= ERO 
OOma O2 
w<<© 


Op 


IT 


me Meu Sz 
oo DO DoO-4 A 


nen 
BD 


MOV 
RTS 
MOV 


MOV 
JMP 


Fl 


4s, SESCAPE 
fh -(SP 
#SW9, ISWR 

, (SP) 

AF A1,E.Al 

a7$, SESCAPE 
tat 






eSW9, ISWR 
#2, (SP) 
.81,€.81 

is 

10S, SESCAPE 






H 
1 
® 
(SP 


#SW9, JSWR 
20$ 

#2, (SP) 
#T.A2, CHKFLG 
13$ 


»RCYLD 
Be, CHKFLG 


ae 
#T.B3,CHKFLG 


C,RSEC 
PC, RHEAD 


STMPS, SESCAPE 
PC 






aSTAC 
STNPS, ASESCAPE 
aSLPE 








ee — i 


RETURN HERE FROM MAINLINE ERROR 
iH Ma LOOP ON ERROR 
T ADDR TO NEXT ERROR 


; TEST MSG 
BR IF OK 


; TEST MSG 
;BR IF OK 


Al 


Bl 


Ae? 
CYLDIF, DO NOT CHECK 
Be? 


IN CYLADD, DO NOT CHECK 
B3? 


IN SECTOR, DO NOT CHECK 
IN HEADA, DO NOT CHECK 


;RESTORE ESCAPE 


;RESET STACK PTR 
;RESTORE ESCAPE 


CKS FOR CERTAIN ERROR CONDITIONS ONLY 


BYPCERR 
#CERR,HCS1 
1$ 

PC 


;BR IF CERR 


me a” = 


SES Olee 


me a ee ee a 
















0 UNIBUS RK& DR PRT2 MACYI1 308(1052) 10-JAN-78 11:25 PAGE 129 SEQ 0122 
"Pll 10-JAN-78 09:43 GET VALUE FOR SOFTWARE SWITCH REGISTER 
o04000 007354 1S: g1T sCTO,HCS1 
4 9 2 :BR IF NOT CTO 
1041 ERROR 125 ‘CTO ERROR, MSG A & B INVALID 
000207 RTS PC 
932737 10000 007356 2S: BIT SNEL .HCS2 
1401 BEQ 3$ :BR IF NOT NED 
104126 ERROR 126 ‘NED ERROR, MSG A & B INVALID 
032737 001000 007356 3S: BIT eMOS, HCS2 
001401 BEG ug 
104127 ERROR 127 :MOS ERROR, MSG A & B INVALID 
000207 us: RTS PC 
STHIS ROUTINE DOES THE SELECT DRIVE COMMAND TO GET STATUS 
;1T THEN WAITS FOR CONTROLLER READY 
IF RDY NOT RECEIVED BY THE TIMEOUT, AN ERROR IS FLAGGED 
¢ 
4 O1 74 GSTAT: MOV , TEMP 
033670 013768 O01a88 900910 NOV ‘AURRENT DRIVE # 
SOs BON7a? | Oseee4 ~ OR SE (STATUS) CMD & GET CONTR RDY 
033710 Oat i? ERROR i Rby Ne See SE SELEET DRIVE CHD 
371 007412 MOV RESTOR TEMP1. 
033716 000207 RTS 
: 
‘THIS ROUT TS STAT ALL DRIVE REGISTERS (MSG A0-A3, B0-B3) 
INAS ROUNTROLCER REGISTERS. 
&STAT1: MOV TEMP -(SP) VE TEMP1 
JSR TALL CONTR REG 
p5001D MOV BCCLR, RKCS1( RE) Sent Eo RIVE & 
6 MOV KARL (RS) tere WOR i E 
JSR STAT2 
mie ERR ; BOY NOT SET BY END OF SELECT DRV CMD 
88 
Borde Noy tS IORE Mee BS 





B1a76e 500010 MOV SUNT T;RKCSC 
012768 ettatets po0oe MOV a2 RK AR (RE) ;SELECT WORD 2 





26 
SR PC‘ GSTATe 
RROR 11? ; RDY NOT SET BY END OF SELECT DRV CMD 
l 007434 MOV HMR2,H.A2 -STORE MSG A2 
i 00743€ MOV HMR3,H.Be :STORE MSG Be 
Oo 65 MOV #CCLR, RKCS1(RS) 
1376 0010 MOV SUNIT’ RKCS2(RS) 
034054 012765 OO0000i o000c6 MOV #1, RKARICRS) :SELECT WORD 1 
034062 004737 034150 JSR Bc’ GSTAT2 
034066 104117 ERROR 11? sRDY NOT SET BY END OF SELECT DRV CMD 





—— ee Se - —_- ——-_=-« 
me ee eee ee 


i A TT —— ee oe ae —_ 
me |i ee - _ . oo 





ee 











0 UNIBUS RK& DR PRT2 124 
"Pll. 10-JAN-78 09:43 ISTER sE0 les 
1 STORE MSG Al 
pSuoce Btaa? Ot STORE Mee 84 


s ROY NOT =) BY END OF SEL DRY CMD 
TORE HSC B 


* tat hata ;RESTORE TEMP1 


GSTATe: ave SSELDRV,HCS1 


Vv 
JSR »FRDY1 ;FIND CONTR ROY % as yore DRIVE REGS ONLY 


5 Geese) RET HERE HF 


THIS, ae 1 eeree Me oe Mal CLEAR & WAITS FOR CONTROLLER re ey 
RECEIVED BY TIMEOUT, AN ERROR IS F 
He ROUT] ti 
RETURN +2 F 













THE END OF THE LAGGED. 
THER GETS CURRENT STATUS & CHECKS FOR CONTROLLER ERROR (CERR) 
ea CLEAR 






teil Mov #SCLR RKCS2(RS) ;SUBSYS CLEAR 
ERR iRay- of 
OR Y NO SET BY END OF SCLR 
MOV Le RKCS2(RS) ig T DRIV 
CLR LE i 
JSR PC ReTAT ‘GET STATUS 
Beg eCERR,HCS1 ‘CHECK FOR CONT ERROR 
1S: ADD #2, (SP) :SKIP OVER ERROR 
RTS PC 


SREAD THE SECTOR COUNT IN RKMR3, RIGHT JUSTIFY IT & STORE IT IN ‘SECTOR’ 


RDSEC: MOV #3, RKMR1(RS) :WORD 3 
ISR PC'GSTAT 
MOV SECTOR 
BIC #tC<M.SECT>, SECTOR 
ASR SECTOR ;RIGHT JUSTIFY 
ASR SECTOR : SECTOR 
ASR SECTOR : INFO 
ASR SECTOR 
RTS PC 


‘READ THE CYL DIFF/OFFSET IN RKMR2, RIGHT JUSTIFY IT & STORE IT IN *CYLDIF’ 


ee ee ee ee ee ee eee - 


I10 


CZR6IEO UNIBUS RK& DR PRTe MACY11 30A(10S2) 10-JAN-78 11:25 PAGE les SES Ules 
CZR6IE.PIi1 10-JAN-78 09:43 GET VALUE FOR SOFTWARE SWITCH REGISTER 


034344 





12765 o00026 &DCYLD: MoV 2,RKMRI(RS)  ;WORD 2 
5 TSR PC’ GSTAT 


33664 
7 40g 1356 MOV HMRe. CYLDIF 
S44 1356 BIC Mask | CYLDIF 
? 1356 ASR CYLDIF sRIGHT JUSTIFY 
? 1356 ASR CYLOIF -CYL DIFF/OFFSET 

001356 ASR CYLDIF : INFO 

501356 ASR CYLDIF 

901356 o15440 CMP CYLDIF , MASK ;CHK TO SEE IF RET IN COMPL. FORM 

BNE 1$ -BR IF NOT 
001356 CLR CYLDIF ‘CLR IF YES 
1S: RTS PC 


SQUICK SELECT DRIVE COMMAND TO OBTAIN CYL DIFF 


dKcYLD: MOV TEMP1, -(SP) SAVE TEMP1 
MOV #2 RKARI (RS) ‘SELECT WORD 2 









0 
MOV #SELDR :SELECT DRIVE CMD 
BIS STMP4Y.HCS1 
& MOV HCS1,RKCS1(RS) 
6 MOV Tl TEMP. 
651 1S: BIT #RDY,RKCS1(RS) ;TEST FOR CONT RDY 
6511 BNE es -BR IF THERE 
6 le DEC EMP 1 
651 BNE 1$ 
bold ERROR 117 ;NO RDY AFTER SEL DRV CMD 
6516 2s: MOV RKMR2( RS), CYLDIF 
651 BIC MASK1, CYLOIF :GET CYL DIFF ONLY (NO SHIFTING) 
6518 MOV (SP)+’ TEMP ‘RESTORE TEMP1 
p21 RTS PC 
6S 1 ‘READ THE CYL ADDR IN RKMR3, RIGHT JUSTIFY IT & STORE IT IN ‘CYLADD’ 
poss 000026 RDCYLA: MOV #2, RKMR1(RS) sWORD 2 
24 ISR PC’ GSTAT 
6S2S 001360 MOV HMR3. CYLADD 
001360 BIC MASK! . CYLADD 
ASR CYLADD sRIGHT JUSTIFY 
ASR CYLADD -CYL ADOR 
ASR CYLADD : 
ASR CYLADD 
RTS PC 


SREAD THE CYL DIFF/OFFSET IN H.A2, RIGHT JUSTIFY IT & STORE IT IN ‘CYLDIF’ 





001356 ACYLD: MOV H.A2, CYLDIF 
001356 BIC MASKI.CYLDIF ;CLEAR UNWANTED INFO 
ASR CYLDIF ;RIGHT JUSTIFY 
ASR CYLDIF 
ASR CYLDIF 
ASR CYLDIF 
015440 CMP CYLDIF , MASK :CHK TO SEE IF RET IN COMPL. FORM 
BNE 1$ -BR IF NO 





~— ———— se ee _ 
—_ —- _<- —<- —_ 


OT TTT, TT LL se NR = ah mm mm me es eee ——_— 
~ ow ee oe - 


UNIBUS RK6 DR PRTe MACY11 a ee ay 10-JAN-78 11:25 PAGE 126 SES 0126 


-Pll 10-JAN-78 09:43 GET VALUE FOR SOFTWARE SWITCH REGISTER 
034650 005037 001356 CLR CYLDIF ;ELSE CLEAR 
034654 000207 1$: RTS PC 


SREAD THE CYL ADDR IN H.82, RIGHT JUSTIFY IT & STORE IT IN ’CYLADD’ 


O0346S6 013737 007 001360 RCYLA: MOV H.B82.CYLADD 
034664 3237 015442 001360 BIC MASKI.CYLADD ;CLEAR UNWANTED INFO 
O3467¢ Boe 7 001360 ASR cYLADD sRIGHT JUSTIFY 
006237 001360 ASR CY LADD 

0347 237 001360 ASR CYLADD 
0347 37 001360 ASR CYLADD 

7le 000207 RTS 

‘READ THE SECTOR COUNT IN H.83, RIGHT JUSTIFY IT & STORE IT IN 'SECTOR’ 

034714 013737 OO7442 OO1402 RSEC: MOV H.8 CTOR 

722 042737 177017 O0140e BIC ahh & SECT>, SECTOR “CLEAR UNHANTED INFO 

? 006237 001402 ASR SECTOR RIGHT JUSTIFY 

7 3 001402 ASR SECTOR 

740 D0be 001402 ASR SECTOR 

744 37 001402 ASR SECTOR 
034750 000207 RTS PC 


SREAD THE HEAD ADDR IN H.B3, RIGHT IT & STORE IT IN ’HEADA’ 


462 RHEAD: MOV HEADA 

4UB2 BIC Atha We HEAD>, HEAOA - CLEAR UNWANTED INFO 
034766 006237 001462 ASR HEADA RIGHT JUSTIFY IT 

034772 000337 O0146e SWAB HEADA 

934776 000207 RTS PC 





FIND SECTOR 23 
;RETU URN IF NOT FOUND 
*RETURN +4 IF FOUND 
001416 oo7412 #SEC23: MOV TSOOO, TEMP 1 ;SETUP TIMEOUT 
034274 15: ISR PC. ROSEC ; READ SECTOR 
001402 oco00e3 SECTOR, #23 TEST FOR SECTOR 23(8) 
BR IF NOT 23(8) 
034274 JSR PC. RDSEC 
001402 oo0002e3 CMP SECTOR, #23 
BEQ Ef. ;BR IF READ SAME TWICE 
034274 JSR C.RDSEC ‘ELSE TRY 1 MORE TIME 
001402 oo0002e2 CMP SECTOR. 823 
BEQ 3$ -BR IF 23(8) 
psepee poiaeg te =_ - Fe Ff TRY AGAIN 
035060 000207 RTS PC ; 
0350 062716 oO0004 3S: ADD #4, (SP) :SKIP OVER ERROR 
SeDeE 000207 RTS Pc’ 


ROUTINE TO FIND HEADS HOME IN RKMR2 WORD 1 BEFORE SPECIFIED DELAY 
‘ENTER WITH TIME IN SECONDS IN TEMP2 





OO 


SES 


ee 
WOnNCU CWO 


POO COT OO OTT 


RRERRES 
sitet 
OLNOLNLONE 


a8 


“ 
0352 


66 
66 
66 
66 
66 
66 le 
66 ie 
23 


Ta 


POO 
athe 


FEES 
rs 


ee ee ——- 





O UNIBUS RK 
-Pll 


038076 
10 


/ 
: 


a ee ee 


O 
in 
fo 





O00 
WJ) 
rrr 
We 
roe 


10 





° DR_PRTe 
-JAN-78 09:43 





MACY11 30A(10Se) 


007412 
000026 


007402 


007412 
000026 


007402 


001464 


001470 


10-JAN-78 11:25 PAGE 1le7 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


;RETURN IF NOT FOUND 
‘RETURNS IF FOUND - SKIP OVER ERROR 













FHDHM: MOV #-1, TEMP1 sALL 1°S 
MOV #1, RKMRICRS) :WORD 1 
1S: ISR PC; GSTAT 
BIT #0. HOHM, 
BNE ct 
DEC EMP 
BNE 1 
DEC EMPe 
BNE FHD 
RTS PC 
2$: BOD #2, (SP) ;SKIP OVER ERROR 
RT PC 
; ROUTINE TO FIND LOAD HEADS IN RKMR2 WORD 1 BEFORE THE TIMEOUT 
‘RETURN IF NOT FOUND 
*RETURN+2 IF FOUND: SKIP OVER ERROR 
FLOAD: MOV #2S0., TEMP1 
MOV #1, RKARICRS) :WORD 1 
1S: JSR PC’ GSTAT 
oe 
1 
PC 
2s: :SKIP OVER ERROR 
PC 
jEILL ABLE WITH 66 WORDS OF VALID HEADERS 
‘ENTER L # IN ’CALADD’ 
‘ENTER WITH HEAD # IN ’HEAD’ 
-ENTER WITH FORMAT IN 'FORMAT’ 
FHDTAB: MOV RO, -(SP) :SAV RO 
NOV RL ATAB RO SO OXDER WORD TABLE ADDR 
CLR R1 ; :SECTOR COUNTER 
MOV HEAD, HD1 
SL HD 1 
ASL HD 1 
tpt 
ASL HD1 :SETUP HEAD # FOR WORD 2 OF HEADER 
cme «CK 
ASL FMT1 ;SETUP FORMAT FOR WORD 2 OF HEADER 
1S: MOV CALADD, (RO)+ sHEADER WORD 1-CYL_ ADDR 
MOV R1. (RO) ‘HEADER WORD 2@-SECTOR NO 
BIS HDI. (RO) -HEAD NO 
B15 FMT1. (RO) } -FORMAT 
JSR PC, SECFLG 


mr se sa — - 





SEQ Ole7 


- ——_ <a 


— meee ee eee ee ann. < 


- - —_—— —-— ——_—— aa — 


L10 





Cc O UNIBUS RK MACY11 30Q(10S2) 10-JAN-78 11:25 PAGE 128 
CERO EO ees ae ane78 09:43 OA ORE le POR SOF THARE SUETCH REGISTER se6 Ghee 
6655 Shi Be fe jee 007412 MOV cA mi 
J013 007414 Bye fip2 
007412 BIC (RO)+, TEMP 
053737 907412 007414 BIS Bn Pl; TEMP2 
507414 MOV TEMP2; (RO)+ sHEADER WORD 3-HEADER CHECK 
N CTOR 
Bh 000026 ats Rl, aze. BL ge SECTORS DONE? (66 WORDS) 
061344 BNE 
35364 0126 MOV P)+,R acer R1 
32366 55 M y P)+’R ‘RESTOR RO 


INFORMATION FROM THE BAD SECTOR TABLE FILLED BY A PREVIOUS 
“TEST & SETS BITS 14 & 1S APPROPRIATLY. 





35504 


010346 


021227 
001002 
12603 
0207 





004346 
03S47e 
040000 


177777 


Loom t, MOV ~( 
TST 
BNE 
me SERRE. Me 
BIS ABtTiC. CRO 
MOV eBSE22S+8. od 
ISR PC. FLGTST 
BIS eBtT14, (RO) 
MOV (SP)+,Re 
RTS PC 

1S: MOV #BSE20H+8. ,Re 
JSR GTST 
BIS eotTis. (RO) 
MOV #BSE20S+8. ,R2 
JSR PC. FLGTST 
BIS wBiT14, (RO) 
MOV (SP)+,R2 
RTS PC 

ROUTI ACTUAL 
Be Mf TH THE ser © TABLE 

RS TURN JF IF COMP 

ALGTST: MOV sastiont 

1S: CMP (R2),#-1 
BNE 
MOV (SP)+,R3 
RTS PC 


(S 
(S 
PC 
‘THIS ROUTINE iS 
Re 








& 
SP ) 
T 





RETURN HERE I 


SEANNLDS OF T 


sSAVE Re 
;BR IF 20 SECTOR FORMAT 


T HARDWARE DETECTED FLAG 
GOOD SECTOR 


SEL ae Fluane 6 


HERE 
Ste i TECTED FLAG 
RET N HERE I 


GOOD SECTOR 


;ELSE RETURN HERE 


;GET HARDWARE DETECTED FLAG 
*RETURN HERE IF GOOD SECTOR 


;GET SOFTWARE DETECTED FLAG 
;RETURN HERE IF GOOD SECTOR 


;RESTORE Re 


BAD S dey TABLES 


(BSE22H, BSE2eS, ETC.) IN TEMP1 


;SAVE R3 


;SEE IF ALL 1°S 
>BR IF NO 
*RESTORE R3 


re eee — 


ZR6IE. 


— TF TT — 





O356S6 


035666 
035672 
035676 


022237 
te Re 





7 


013703 
000303 


B22e83 


062700 
012701 


001374 


noosa? 


CZR6IEO UNIBUS RK6 DR PRTe 
C Pil 10-JAN-78 09:43 


035618 
038620 


001362 


000004 


034274 
000001 
035656 


000204 
001402 
0014 

017 

001726 
002132 
002132 


001726 
001402 


MACY11 30A(10Se2) 
GE 


001402 


001402 


10-JAN-78 


11:25 


PAGE 1e9 
T VALUE FOR SOFTWARE SWITCH REGISTER 


es: 


3$: 


4S: 


IVT RRUTRRELAQHES 1 


dort: MOV 
M 


1S: MOV 


2s: 


'MULT BY 6. 
AULT6: ASL 
MOV 





(R2)+,CALADD 
ti 

_ Ra 
RLh? R3 

rt 


(SP)+.R3 
#4, (SP) 
Pc’ 


RO, ~ (SP) 





o22F oar R RO 


RO, $55 8 ron 


#RHTAB 
scRTTAG R R1 


(RO)+, (R1)+ 
RO, #RHT 


#RHTAB, RO 
(RO)+. tRi)+ 
RO, SECTOR 








;RO-SECTOR TO RO = 
;SAVE INDEX 


+132. 


;SEE IF=CYL # & ADR PTR TO TRK/SECTOR WORD 
;GO TO NEXT CYL WORD IN TABLE 


;GET HEAD # FROM FHDTAB ROUTINE 


SRP TE°SECroe/ Heo’ Compare 


5 ten PTR TO NEXT CYL WORD 
Bld reo"ReS 


xT CYL 
;RESTORE R3 
: INCREMENT RET ADDR 


; SAV 


TPE? AEaF FOURS” FUR BERS HSBERBR 
E RO 
: SAVE 


Rl 


;MULT SECTOR BY 6& 


INDEX 


; INDEX TO BOT HALF OF RHTAB 
: INDEX TO TOP HALF OF SRTTAB 


;PUT BOTTOM OF RHTAB TO TOP OF SRTTAB 


;PUT TOP OF RHTAB TO BOT OF SRTTAB 


;RESTOR Rl 
;RESTOR RO 


ENTER WITH DESIRED # IN *SECTOR’ 


SECTOR 

ge ign ~ (SP) 
(SP)+,SECTOR 
PC 


;2 X SECTOR 


X SECTOR 


iy * S)+(2 X S) = 6&6 X SECTOR 


SES 0129 


cr-ooceree> sas 


OOD 

















ZREIEO UNIBUS RK& DR PRT2 MecYL1 3081052) 10-JAN-78 11:25 PAGE 130 SEQ 0120 
ZR6IE.P11 10-JAN-78 09:43 GET VALUE FOR SOFTWARE SWITCH REGISTER 
oe 
PoES *THIS ROUTINE IS ENTEREC ONLY IF THERE IS A BSE ERROR AFTER A WRITE DATA 
6770 : IT VERIFIES THAT THE BAD SECTOR IS LISTED IN THE INFORMATION 
6771 ?CYLINDER AT CYL 410, TRACK 2. 
pecs ‘RETURN IF SECTOR NOT LISTED IN BSE TABLE, ERROR CONDITION. 
e778 RETURN+2 IF LISTED, SKIP OVER ERROR 
6776 TRUERR: MOV RY, -(SP) ;SAVE RY 
010000 007354 BIT #CFMT,HCS1 ; CHECK FORMAT 
BNE og ‘BR FOR 20 SECTOR FORMAT 
003346 MOV #BSE2°H+8. ,RY 
036000 ISR PC, TERRI ;SEE IF ON HARDWARE DETECTED TABLE 
BR 3$ -RETURN HERE IF YES 
005346 MOV #BSE22S+8. , RY EL RETURN HERE 
036000 ISR PC, TERRI . Fe TF ON SOF THe WARE DETECTED TABLE 
BR 3$ : RE 
1S: MOV (SP)+,R4 s RESTORE 
RTS PC - RE URN Wi THOUT JUMPING OVER ERROR 
002346 2s: MOV #BSE20H+8. ,R4 
036000 ISR PC, TERRI - SEE E DETECTED TABLE 
BR 3$ -RET YES 
O04, MOV #BSE20S+8.,R4Y ;ELSE 
36000 ISR PC, TERRI i SEE OFTWARE DETECTED TABLE 
BR 3$ ;RE F YES 
BR 1$ ;RET 
035770 012604 3S: MOV (SP)+.R4 sRES 
035772 2716 oo00002 ADD #2, (SP) -SKI ERROR ON RETURN 





035776 00020 RTS PC’ 


—-———— «= -« 


—>- + «sae awee = « 


Core 


ae _ RK6 DR PRTe 


IE.P 


0 
6811 


036000 Oel4e7 


10-JAN-78 09:43 


177777 


MACY11 30A(10Se2) 
GET VALUE 


; THIS ROUTINE DOES THE ACTUAL COMP 
Ma  . TABLE FOR heteove SUBRO 


PRET N IF UND 
+ RETURNS IF NOT FOUND 
tERRI: CMP 


O-JAN-78 11:25 
OR SOFTWARE SWITC 





(RY, , #-1 


;SEE IF ALL 1°S 


SEQ 0131 


G OF CYLINDER, HEAD & TRACK AGAINST 


EET 


ZR6IE.P11 


eS} GRE 


eee ee ee 


Se UNIBUS RK& DR PRTe2 


10-JAN-78 09:43 





007374 


ooc00e 


007364 


Cll 


MACY11 30A(10S2) 10-JAN-78 11:25 PAGE 
GET VALUE FOR SOFTWARE SWITCH REcieter SEQ Ol3e 


BEQ 1g :BR IF YES, NOT ON TABLE 
CMP ¢R4) +, HOC : SEE IF CYL MATCH 
PE? (R4)+ "ELSE ADV TO NEXT CYL WORD 
BR TERRI °& TRY AGAIN. 

1$: I #2, SP) 
Ree BE: 

2s: cn (R4)+,HDA i SEE IF SECTOR & TRACK MATCH 
SB F2RR! BR thy EZaIn 

3S: RTS PC 


:ROUTINE TO TURN L OR P CLOCK INTERRUPT ON 


ALKON: CLR TIMUP 
TST PCLKF 


a eee ee 


‘ 


Dl 





CZR6IEO UNIBUS RK& DR PRT2 MACY11 30A(10S2) 10-JAN-78 11:25 PAGE 133 SEQ 0133 
CZR6IE.P11 10-JAN-78 09:43 GET VALUE FOR SOFTWARE SWITCH REGISTER 
6831 036050 001004 RNE 1$ Tey IF P-CLOCK PRESENT 
6832 O0360S2 012777 O00100 143246 HOV #100, 3LKS L-CLOCK, ENABLE INT 
77 «14 1S: Vv aPK Pac OCK 
peas ita 406756 33535 Vv MOpRS ENABLE tn, g t te, REP INT 
be 036076 RTS PC LINE FREQ & 
*KWI1-L & KW11-P INTERRUPT HANDLER 
6840 036100 001372 ALOCK: CLR TIMUP 
a 036104 001366 DEC COUNT 
eaus Betis 001364 001366 ROY sa COUNT 
6844 61 001370 DEC set 
pBue t 001372 PNE Heup sSORRY, TIME IS UP 
l 1$: RTI 
6849 ‘ROUTINE TO TURN L OR P CLOCK INTERRUPT OFF 
737 007520 ELKOF: TST PCLKF 
ad 3 BNE is hee IF P-CLOCK PRESENT 
7 143160 CLR aLKS L-CLOCK, CLEAR INTERRUPT 


143144 1$: 


eas 
See 


Phe he be 
£ 
rT 
5 


= 


foe 
slate == 
Beste 


p 
aPxs ,P-CLOCK, CLEAR INTERRUPT 







I THIS R GENERATES PARITY FOR THE EXPECTED MESSAGE 

ENTER My ert i? Times, EACH T 

-R1 Is rhe NO 3¢ 4 ROTATES TENET ‘g K x18, ORI), 
RL BIT O 1S IT IS SE ING AN ODD s 


fae IS NOT Sif is Ror Set INE EVEN # OF 1°S ,THE PARITY BIT IS 


deparR: MoV 
MOV Ri =(8P) £ AVE Ri 
000021 MOV #17. ,RO HIFT COUNTER 
CLR Ri ‘COUNT # OF 1°S IN TEMP] 
CLC : CLEAR CARRY 
007412 1S: ROL TEMP 1 
BCC eg 98 IF CARRY CLEAR 
NC R 3 COUNT te 
2s: EC R FT SOUNTER 
NE l 
000001 BIT #81TO, ,R1 - a i ae 
100000 007412 BTS 8M. PAR, TEMP ‘BR Pani Ty "ott 
3$: MOV (SP)+,R1 -RESTORE R 
MOV (SP )+, RO : RESTORE RO 





eat ee 


6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 


OWWWUWODODWWWWW 
Pb be be be he he he ee 


I i ee 


COE SO SSCS rrrr 


o 
ALATA REAL ATA 


One-o 





Pll 


036374 
036402 
036410 
036416 





004737 


O UNIBUS RKE DR PRTe 
10-JAN-78 09:43 


001000 
001103 
001110 


001110 


034214 


007336 
o0004e 
045775 
046043 


034214 


000011 
O3eee4 


001414 
032634 


007336 
007340 
007342 


leee 
000013 
O32eee4 


MACY11 30A(10Se2) 


142702 


007354 


007414 


000000 
000010 
007354 


11 


q 
11:25 PAGE 


10-JAN-78 134 SEQ 0134 
GET VALUE FOR SOFTWARE SWITCH REGISTER 
TINE E L PING ON ON INTERMITTANT ERRORS 
N St PERR Ser BY OTHE AN SCOPE ROUTINE 
IE: MY LOOP MAC 
ScoPis: BIT #SW9, ISWR . ON ERROR? 
BO 1 BR te NO 
TSTB SERFLG ‘HAD ERROR? 
BEQ 1$ ‘BR IF NO 
MOV SLPERR, (SP) 
RTI 
1S: Mov (SP), SLPERR :SET LOOP ADDR FOR TIGHT SCOPE LOOP 


‘THIS ROUTINE IS ENTERED BY TYPING A ge -C. 
THE OPERAT 


;I1T IS USED TO ALLOW 
; THAT HEADS AR 






: ADS 

>THE CPU. 

STOP: CMP (SP)+, (SP)+ 
ISR PC, SUBCLR 
ERROR 24 
TST UNLD 
BEQ 3$ 
TST 42 

Q 1$ 

YPE ,h'SG74 

1S: TYPE ,MSG75 

es: 
SR PC, SUBCLR 
ERROR 24 
MOV uSRTSPL HCS1 
JSR DOCMO 
ERROR n° 
MOV T100, TEMP2 
ISR PC, FATTI 
ERROR 74 
CLR UNLD 

3$: TST BADHDR 
BEQ 4§ 
INC HPEND 
MOV eCCLR,RKCS1(RS) 
MOV SUNIT,_ RKCS2(RS) 
MOV #RECAL,HCS1 
ISR ,DOCM 


T THE CPU WHILE INSURING 


OR TO 
E LOADED & FORMATTING IS VALID BEFORE ACTUALLY HALTING 


-sRESTORE STACK FROM INTERRUPT 


;CERR AFTER 

+ tae HEADS UNLOADED 

:SEE IF MANUAL OR AUTO MODE 
BR! ABORT NDING 

;HALT PENDING 


;CERR AFTER SCLR 


‘RD START SPINOLE CMD 8&8 GET CONTR RDY 
RDY NOT SET AFTER ST SPIN CMD. 


326 TP T + al 
‘NO ATTN AFTER ST SPIN CMD. 


; SEE sr HEADERS VALID 
;BR IF YES 


;00 RECAL CMD & GET CONTR RDY 


‘gReTEO UNIBUS RK& DR PRTe MACY11 ae a ates oat 10-JAN-78 11:25 PAGE 135 SEG 0135 
CZR6IE.Pil 10-JAN-78 09:43 GET VALUE FOR SOFTWARE SWITCH REGISTER 


oai3 O3642e 104124 ERROR 124 ;RDY NOT SET HF TER RECAL CMD 
6945 000026 #1,RKMR1 (RS) ;SELECT WORD 1 


000001 
cei BS2883 conc Ta 





























69" yyy 
6948 aus ;RIZ NOT SET DURING RECAL CMD 
6 007414 64S: MOV 10, TEMP2 ‘SETUP TIMEOUT 
3 Js Pe, ,FATTI :FIND ATTN 
b ERROR ‘NO ATTN AFTER RECAL CMD 
6 4 0 MOV SCCLR, RKCSI(RS) 
; 4 000010 MOV SUNIT.RKCS2(RS) ;ORIVES 
0072354 MOV HCS 1 
6 ISR :DO DRIVE CLEAR CMD 8 GET CONTR RDY 
6 l ERROR 15 :N Y AFTER DRIVE CLEAR CMD 
6 4 JSR PC, TSTATN - TEST FOR ATTN 
696 S22 ERROR 154 ;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
6 Sey 6S$: 
eae 
eee 036524 000137 031174 IMP FORM ;WRITE VALID FORMATS 
696 $30 oo00042 4g: TST 42 ;SEE IF MANUAL OR AUTO MODE 
6968 BEQ S$ ‘BR IF MANUAL MODE 
6969 238 00 TYPE MSG76 -PGM ABORTED 
6970 4 1S40 CLR SE OPCT :SET UP EOP TO EXIT TO MONITOR 
6971 46 1176 CLR SESCAPE 
6976 0365 031512 IMP SEOP1 ; ABORT PGM 
6974 036556 046122 S$: TYPE MSG77 :CPU HALTED 
6975 036562 HAL T : 
63 036564 000127 013356 IMP STS :START OVER IF CONTINUE PRESSED 
.SBTTL UNEXPECTED TIMEOUT HANDLER 
‘THIS ROUTINE IS ENTEREO IF THERE IS 
: a. NON EXISTANT MEMORY (NO SSYN) 
C. STACK OVERFLOW 
S 011600 BADTMO: MOV (SP). RO ;SAVE PC WHERE TIMEOUT OCCURRED. 
6990 p3pes5 005740 TST -(RO ;GET | P [r°eRR Ty? UPDATE 
693 036574 032772 020000 142336 BIT #SH13, ISR se YPO 
6993 036604 104401 046303 TYPE EM3 Beart Ar TESTS TUNEXP T .0. a PC= 
6330 036610 010046 MOV RO, -(SP) ; 3A AVE R FOR TYPEOUT 
6996 O36612 104403 TYPOS tigo T TYPE--OCTAL ASCII 
6997 036614 006 -_BYTE 6 ‘TYPE & D 
6998 036615 000 “BYTE 0 .:SUPPRESS LEADING ZEROS 
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KS ReTE PT 1O- SANG 7B 09:43 UNEXPECTED PME OUT HANDLER om 
b 777 001000 142314 1S: IT 8SW9, ISWR ; LOOP RROR? 
4 Q 53 : NO He 
7001 CMP (SP)4+. (SP)+ YES 
0001 142252 IMP aSLPADR : G0, fester ada® ies OR OF TEST 
? MEOU 





777 O8%0000 142276 2S: BIT sSW14,aSWR 
BBI451 Bo SS ip, orancH 


i i | 
gages 
a | 













7008 ooo0000 3$: HALT me {nb cat TIME OUT OCCURRED 
? 8S IN cA TED. AN LOOP ON 
oOt6 OR INHIBIT 
7011 ERROR’ TYPEOUT BY SETTING THOSE 
r0le ; SWI TCHES. 
ota 036650 022626 CMP (SP)+, (SP)+ RESTORE STACK 
7018 0366S2 000137 031512 IMP SEOP1 ‘ABORT TESTS 
7017 .SBTTL MEMORY CHECK ENABLE TRAP 
7018 912737 001176 MEMERR: MoV t285 Stanere avers 6 
7081 ERROR 4] SNE 3 AEM PARITY TRAP 
7022 1$: CLR SESCAPE 
7023 142234 BIT #SWS, aSWR 3 CHECK IF LOOP ON ERROR 
7 BNE 2s FORC STACK AND TRY AGAIN 
e RTI ‘tree 
7027 2s: MOV STACK, SP - INIT STACK 
7028 IMP JSLPERR -LOOP ON ERROR 
7029 
.SBTTL RKOG INTERRUPT HANDLER 
000240 INTER: NOP 
NOP 
00024 NOP 
0116 MOV (SP) RO :SAVE PC WHERE INT OCCURRED. 
005740 TST (RO) :-GET PC BEFORE UPDATE. 
10440) o44sso TYPE “ MSGb AT PC= 
10046 MOV RO, -(SP) fea: RO FOR TYPEOUT 
104403 TYPOS :GO T PE--OCTAL ASCII 
Bef / Dpbebcbied) 
o “I :: SUPPRESS L ADING ZEROS 
009240 NOP 
000240 NOP 
002 RTI 





.SBTTL POWER DOWN AND UP ROUTINES 
;POWER DOWN ROUTINE 


036754 012737 036766 000024 SPWRDON: MOV #SPWRUP,PWRVEC ;SET UP VECTOR 
036762 000000 HALT 
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ZREIE.PL1 10-JAN-78 09:43 POWER DOWN AND UP ROUTINES 
Bee 036764 000776 BR 2 :HANG UP. 
? :POWER UP ROUTINE 
SPWRUP: LR T WAIT FOR TTY 
TNC fo iMatT ee INCR 
000024 BOY : POER {DOWN VECTOR 
p000e6 MOV #PR7 SR PWAVE 5° PRIORITY 
500 MOV #PR7’ TRAPVEC+2 ; LOCKOUT ALL INTERRUPTS FOR TRAPS 
MOV eSTACK, SP . INITIALIZE STAC 
rye . ,MSG11 : RE WE PAIL 


IMP PFSRT 
SPWRCT: O ;WAIT COUNT FOR TTY 


j DIVISION UTILITY ROUTINE 
a Ec ae 





; n0-Ri= 
RO-R1=RE MAINOER OF R DIV IS10 ON 
: RE-R3=QUOTI prTER opiy SION 
: ENTE “WITH JSR PC,M 9) 
M.OPID: MOV #40,-(SP) ;COUNTER FOR DIVISION CYCLES 
MOV RY, -(SP) HI OR 
MOV RS‘ -(SP) if ORDER TO THE STACK 
NEG GP) VERSION OF Df 
NEG S ty RSION oor DIVISOR 
SBC 2(SP) 
ADD aSP,R1 
RO ;PERFORM INIT SUBT. 
ADD 2(SP).RO 
acs M.oPSO -IF CARRY THEN OVERFLOW HAS OCCURRED 
1 CLR -(SP) ‘THIS IS A LONGER LASTING CARRY BIT 
703¢ 71 M.DP4O: ROL R3 
71 ROL Re 
7094 7104 RI 
? 71 R RO 
7 711 T aSP :TEST CARRY INDICATOR 
? 711 BEQ M. DP41 :IF TO CARRY THEN ADD, ELSE SUBST. 
7098 037114 CLR asP :CLEAR UP FOR NEXT TIME 
70 71 & ooo002 ADD 2(SP),R1 
71 71 ADC RO sADD -(DIVISOR) 
7101 71 apc asP :SET CARRY 
7102 037126 ooooo04 ADD 4(SP).RO 
7103 037132 BR M.DP42 
71 71 M.DP41: ADD RS,R1 
zide B37i3e Soest abe RO ,800 s<OIVISOR) 
7108 neat: ntitte ADS RY. RO 
7109 037144 OO0SSIi6 M.DP42: ADC asP :SET CARRY 
7110 037146 005716 TST aSP : TEST THE UPDATE INDICATOR 
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POWER DOWN AND UP ROUTINES 
BEQ . +4 
INC R3 
DEC 6(SP) 
BGT M.DP4O 
ROR R3 
BCS M.DP44 
ADD RS,AR1 
ADC 
ADD R4Y,RO 
CLC 
M.OP44: ROL R3 
ADD #10,SP 
CLV 
RTS PC 
M.OPSO: ADD #6, SP 
SEV 
RTS PC 


A ee eee 


1:25 PAGE 138 


:IF O,FORGET IT 
:NO CARRY POSSIBLE HERE 
:DECREMENT CT 

‘BR IF MORE TO DO 


;ADJUST STACK BY 4% WORDS 
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.SBTTL SCOPE HANDLER ROUTINE 
LTHIS ROUTINE CONTROLS THE COOPING OF SUBTESTS. iT WILL INCREMEN 





















































































j ATHIS ROUTI TROBE THE E LOOPT 9 Bt ESTS. IT WILL INCREMENT 
LOAD T STNM es INTO HE DISPLAY REG. (DISPLAY<7:0>) 
SAND L "FLAG. ERELG) INTO DISPLAY<15:08> 
;RTHE Si SWITCH on yest. BY THIS ROUTINE ARE: 
SeWlI ~ oe ii ERATIONS 
; ®SWOS9=1 LOOP 
: *SWOB= LOOP oN TEST IN SWR<7:0> 
: #CALL 
i SCOPE ; :SCOPE=IOT 
SSCOPE: 
104407 CKSWR :: TEST FOR CHANGE IN SOFT-SWR 
032777 o40000 141710 1S: BIT #B1IT14, ISWR ; | LOOP ESENT TEST? 
001114 BNE SOVER 4=] 
-seeeaSTART OF CODE FOR THE xor tts 
000416 $xTSTR: BR iit THE “XOR". TESTER CHANGE 
;; THI t ON TO A “NOP” (NOP=240) 
000004 MOV 4 NTS OF THE ERROR VECTOR 
037260 000004 MOV Hit FOR a 
037 04 MOV 2 STORE THEE VECTOR 
BR -:GO TO EST 
7 Ss: CMP 22C eer T ACK or reR. e. TIME OUT 
7 oo0004 MOV - >RESTORE angie. 
7 BR ae ON T pee NY. Ege 
7 6S:; #8888END OF HE XOR TESTERSHee8 
z 000400 141642 BIT 7 seb -ON SPEC. TEST? 
037 141634 001102 57 ON THe RIGHT TEST? SWR<7:0> 
037 001103 2$ {HAS BN ERROR OCCURRED? 
? 001115 001103 RMAX, SERFLG i MAX RRORS FOR THIS TEST OCCURRED? 
? 001000 141604 : IT09, ISWR : iLO PON ERROR? 
2 001110 OO1106 7S: SLPERR,SLPADR ;;SET LOOP ADDRESS TO LAST SCOPE 
001103 rT 3 aad ;:ZERO THE ERROR FLAG 
001174 i CLEAR ur NUMBER F TEEERATIONS TO MAKE 
oo4yoo0o 141552 3S: saITLI, ISWR ‘ont re ITERATIONS? 
001216 Pass F PASS OF 
PTERAT IONS 
001104 SICNT — ERATION T 
001174 001104 STINES, SICNT : CHE ROOF IT ITERATIONS MADE 
OVER +5 CH TERATION R 
000001 0O01104 IS: #1, $ICNT :*REINITIALIZE THE ITERATION COUNTER 
037476 001174 MO SMXCNT,STIMES ;;SET NUMBER OF ITERATIONS TO DO 
001102 $SVLAD: ;;COUNT TEST NUMBERS 
001102 001214 M STSTNM,STESTN :;SET TEST NUMBER IN APT MAILBOX 
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ZR6IE.P11 10-JAN-78 09:43 SCOPE HANDLER ROUTINE 
7187 37440 11637 001108 Mov (SP SUPER ;;SAVE SCOPE LOOP AD 
£188 7450 S BBLISE CLR sése :CLEBR THe ESCAPE ut = ADDRESS 
7190 7454 12732 000001 001115 MOVB a1 SERMAX ONL ALLOW ) ERROR ON NEXT TEST 
7191 777 001102 141452 SOVER: MOV AE NM, JDISPLAY OT SPLAY ES AUMBE 
713¢ 7470 746 001106 MOV PADR; (SP) 2 F RETURN ADDRESS 
71 7474 0 RTI id 
7194 037476 003720 SMXCNT: 2000. ::MAX. NUMBER OF ITERATIONS 
£196 .SBTTL ERROR HANDLER ROUTINE 
7197 eee eee eee ee eee eee eee e Tete Ea ON Tuna AMD THE ERROR COUNT 
7198 pct, ROUT INE WI FLAG AND THE ERROR COUNT, 
7199 SRR ODORESS OF THE ERROR CALL 
7200 *%AND GO ‘ 
7201 {THE _SHITCH OPT eh DED BY THIS ROUTINE ARE: 
Sew 321 ONHIBS ERROR TYPEOUTS 
: *5W10=1 BELL ON ER ROR 
; ¥SWOS= 1 LOOP ON ERROR 
: i ERROR N ;sERROR=EMT AND N=ERROR ITEM NUMBER 
SERROR: 
104407 CKSWR :: TEST FOR CHANGE IN SOFT-SWR 
10S 001103 7$: INCS SERFLG ::SET THE ERROR FLAG 
BEQ ::DON’T LET THE FLAG GO TO ZERO 
i 001102 141424 MOV STSTNM, IDISPLAY ;:DISPLAY TEST NUMBER AND ERROR FLAG 
141414 BIT eBIT10, ’ aSWR -:BELL ON ERROR? 
W401 001 TYPE m STRING BEL 
6 ee 
M0111 1S: INC SERTTL 1 COUNT NUMBER OF ERRORS 
011 001116 MOV (SP) SE - SS OF ERROR INSTRUCTION 
001116 SUB 35 Bec * 
7 141342 001114 MOVB ‘ eC ITEMB TRIP _AND SAVE THE | ERROR ITEM CODE 
020000 141354 BIT tect TYPEOUT IF SE 
i ; SKIP T OUT Se 
055140 BOE neene #0 TO USER E ROUTINE 
104401 os a TYPE , SCRLF 
2737 000001 001230 CMPB #APTENV, SENV ;;RUNNING IN APT MODE 
1007 BNE - NO SKI APT ERROR REPORT 
137 001114 037620 MOVB ITEMB, 21S ::SEt ITEM NUMBER AS ERROR NUMBER 
737 O404e4 ISR PC, SATYY ::REPORT FATAL ERROR TO APT 
ryt. 21s: . ve | 
eieie 
000777 225: BR 225 ; APT ERROR LOOP 
005777 141310 os: TST aSWR : > HALT ON ERROR 
BPL 3$ TP F CONTINUE 
HALT ::HALT ON ERROR! 
1048 ? CKSWR >: TEST FOR CHANGE IN SOFT-SWR 
f 001000 141274 3S: Bit #81T03, aSWR ;LOOP_ON ERROR SWITCH SET’. 
O13716 001110 MOV $LPERR (SP) tt Blige RETURN FOR LOOPING 
005737 001176 4g: TST SESCAPE ::CHECK FOR AN ESCAPE ADDRESS 
001402 BEQ C ::BR IF NONE 
013716 001176 MOV SESCAPE, (SP) :: FUDGE RETURN ADDRESS FOR ESCAPE 
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040040 


661081 
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S888 
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001230 
001231 


001231 


BNE BRENDA, Sere Binds AUTO-ACCEPT” 


6S: 
pom 


RTI 
.SBTTL TYPE ROUTINE 
+ 36-36 SE SE 36 He aE A EE SE SE HE a 0 a a a aa a a 
TINE TO TY CI , SAGE MUST TERMINAT 


t KROUT 

; x THE ROUTINE WILL IN INSERT A NUMBER OF NUL NULL C CHARAC TERS 
NOTE1: NULL CONTAINS THE CHARACTER TO BE 

| SNOTER: SFILLS CONTAINS THE NUMBER OF 

*NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER 
















Se A LINE 


*CALL: 
an USING A TRAP INSTRUCTION 
TYPE , MESADR 












# TYP 
is MESADR 
;% 
$TYPE: TSTB STPFLG . HERE A TERMINAL? 
HALT ae IF NO TERMINAL 
BR 3s + 
1$: MOV -(SP) ss 
MOV aetSP) RO . SS OF ASCIZ STRING 
CMPB TENV, SENV ss 


b ss APT CONSOLE 
ITB SSPrsroo., SENVM :; OF APT 


tity, Oh 








ee em ——— oe 


SES 0141 


WITH A O BYTE. 


FEED. 


USED AS THE FILLER CHARACTER. 
PILL ER as eto REQUIRED. 


;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


61$: . WO ;? 
625: BITB SAPTCSUP. SENVM Hi 
2s: MOVB (RO)+, -(SP) TYPED ON ONTO STACK 

BNE 4§ TERMIN TOR 
60S ny tah RO aT T i 
S AOD a2 (SP) a le PC 
4S: a @HT, (SP) : : BRANCH IF <HT> 

cee SCRLF, (SP) ;;BRANCH IF NOT <CRLF> 

TST (SP)+ ; i POP <CR><LF> EQUIV 

TYPE. :: TYPE A CR AND LF 

LRB SCHARCNT 3 CLEAR. CH CHARACTER COUNT 

2$ T CHAR CTER 

S$: SR PC. STYPEC He Type THIS CHARACTER 
6S: CMPB SFILLC, (SP)+ -IS IT TIME FOR FILLER CHARS. ? 

BNE 2$ Hey NO GO GET NEXT CHAR. 


ce ee ee 


— 


3 
se 
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040156 
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oo00de 
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000001 


10-JAN-78 11:25 PAGE le 


TYPE ROUTINE 
MOV SNULL , -( SP) 
7$: DECB ~=s«&A ( SP?) 


bece , STYPEC 


SCHARCNT 
;HORIZONTAL TAB PROCESSOR 


;/GET # OF FILLER CHARS. NEEDED 
ee 0,86 TYPED? OF STACK 


; 300 NOT COUNT AS A COUNT 






gs: MOVB e’ .(SP) ; REPLACE TAB WITH SPACE 
; pire 4: feta : H IF NOT AT 





~~ OFF STACK 





STYPEC: TSTB 


; os aSTPB 30% CHAR TO BE TYPED INTO DATA REG. 
#CR, atsp) :IS CHARACTER A CARRIAGE RETURN? 

BRANCH F 

:: YES--CLEAR CHARACTER COUNT 











YPEX XIT 
1$: AN a ARORA te SE A LINE FEED? 
INCB (PC )+ 3 COUNT M3 an 
Pee Lore 8. ; CHARACTE OUNT” g BRAGE 


.SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


; jSUSEERSRESRESESASSSRERRERE RSS RE RESET ETRE TINT EY MBER TO A SDI 
tATHIS 21) A 16-B1T 1. OEP NUMBER TO A S-DIGIT 


j ¥SIGNED OStT! 
git OF 






UMBER 
Ete te ED WITH 











NUM, -(SP) 

is TYPDS 
STYPDS: 

MOV RO,-(SP) 

MOV Ri: -(SP) 

MOV Re, -(SP) 

MOV R3,-(SP) 

MOV RS.-(SP) : 

MOV sebe ,- (SP) 8 SIGN 

MOV 20(SP),RS 33 

AEG se + TNARY HUMBER POS. 

MOVB #’-, 1(SP) . 8 ane Tuner NEG 
1$: CLR RO +3 as ih NDE X 

MOV ¥SOBLK R3 + Ou PUT OINTER 

MOVB , (R3)+ IRST CHARACTER TO A BLANK 
2s: CLR R2 :: CLEAR THE BCD NUMBER 





SES 0142 


ow . — 





ee eee 


7 


RSet 


037 
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RT BINARY TO DECIMAL AND TYPE ROUTINE 


;;GET THE CONSTANT 
;;FORM THIS BCD DIGIT 


ti PNCREASE THE BCD DIGIT BY 1 


‘iheck If Bcd O1GrT=0. 
{ISTILL DOING LEADING 0’S? 
tBe IF YES | 





THE =i GN FOR TYPING 
TERMINATOR 





a YPE THE NUMBER 
;;ADJUST THE STACK 


;;RETURN TO USER 


i.gosennecuscasesseee te att en 





;;10 REPORT FATAL E 
;;10 TYPE A MESSAGE 


::TO ONLY REPORT FATAL ERROR 
:;PUSH RO ON STACK 

::PUSH Rl ON STACK 

jj SHOULD TYPE A MESSAGE? 

* OPERATING UNDER APT? 

-:IF NOT: B 


MOV S$DTBL(RO),R1 
3$: SUB oT a 
BLT 4 
NC Re 
BR 3$ 
4g: ADD R1,RS 
TS Re 
BNE S$ 
TSTB (SP) 
BMI ? 
+ F ASLB (SP) 
BCC 6$ 
MOVB 1(SP).-1(R3) 
6S: BIS #’°0,Re 
7§: BIS #’ ‘Ro 
MOVB Re. {R3)+ 
TST (RO)+ 
CMP RO, #10 
BLT 2g 
BGT 8S 
MOV RS,R2 
BR 6S 
Qs: TSTB (SP)+ 
BPL 9§ 
MOVB -1(SP),-2(R3) 
9$: CLRB (R3) 
MOV (SP)+,RS 
MOV (SP)+)R3 
MOV (SP)+)Re 
MOV (SP)+,Ri 
MOV (SP)+’RO 
TYPE SDBLK 
MOV 2(SP),4(SP) 
MOV (SP)+? (SP) 
RTI 
S$DTBL: 10000 
1000. 
100. 
10. 
S$DBLK: .BLKW 4 
_SBTTL APT COMMUNICATIONS ROUTINE 
SATY1: MOV #1,S$FFLG 
SATY3: MOV #1. SMFLG 
BR satyc 
SATY4: MOVB #1,SFFLG 
SATYC: 
MOV RO, -(SP) 
MOV R1'-(SP) 
TS18 SMFLG 
cHPB BAPTENV, SENV 
BITB #APTSPOOL , SENVM 
BEG 3$ 


:: SHOULD SPOOL MESSAGES? 
IF NOT: BR 


SEQ 0143 


oe —— 
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ZROIE.P11 10-JAN-78 09:43 T COMMUNICATIONS ROUTINE | 
741 004 MOV 24(SP).RO | 
741 oo00004 ADD #2. 4(SP) | 
741 lel 1S: TST SMSGTYPE | 
7414 BNE 1$ 
7415 001224 MOV RO, SMSGAD 
eui6 2s: TSTB (0)+ 
741 BNE 
eaig SUB SNSGAD, RO 
741 ASR 0 
pae0 MOV RO, SMSGLGT 
ough 001210 HOV #4, SMSGTYPE 
7423 000004 O40S6e 3S: MOV J4(SP) 4S 
74 090002 000004 ADD ge. 4(SP) - BUMP 
7405 177776 MOV 177776, -(SP) ,;PUSH 155776 
037700 ISR PC, STYPE ::CALL TYPE MACRO 
74 ee : . WORD 0 
105737 040652 10S: ISTB SFELG $5 REPORT FATAL ERROR? 
748 001230 TST SENV j RUNNING UNDER APT? 
141 BEQ 12$ 10 BR 
z 001210 11$ rst SMOGTYPE + NISHED LB LAST MESSAGE? 
-- +9 
l 000004 001212 MOV 4U(SP),SFATAL ;; se Te RROR 
1210 ss INC $n 4cSP? Hi TAKE ERRORS 
1 puaEee 12$: CLRB SFFLG SEES ES FLAG 
1 040651 CLRB SLFLG 
1050337 040650 CLRB SHELG = ga 
015200 MOV (SP)+>RO apes INTO 
? RTS PC 
7THHY poe SMFLG: .BYTE 0 
744s SLFLG: .BYTE O -L 
46 000 SFFLG: .BYTE O FATAL FLAG 
7447 040654 -E 
7448 000200 APTSIZE=200 
7449 000001 NV=001 
7450 000100 APTSPOOL=100 
745] 000040 APTCSUP=040 
pipe _SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
74S4 «MEE HE HE HEE HE HE HME HE HE HE HEH HE EH RRNA ARAL REARS REARS RE REESE 
oiee ng GE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
pe7 i xSTY STYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
7459 ts MOV NUM, -(SP) -:NUMBER TO BE TYPED 
7460 * TYPOS -:CALL FOR TYPEOUT 
7461 ti .BYTE N -*N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
7462 * a -BYTE ;3M=1 OR O 
7463 : -1=TYPE LEADING ZEROS 
ns ; * i NS CUPPRESS LEADING ZEROS 
7466 : *$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
! 
| 
i 


LE —— ee a er a ee ew - -_ _ 
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CZREIE.P11 10-JAN-78 09:43 BINARY TO OCTAL (ASCII) AND TYP 
:*#STYPOS OR STYPOC 
> CALL: 
: ae MOV NUM, -(SP) ss NUMBER TO BE TYPED 
: TYPON :CALL FOR TYPEOUT 
; #STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
= " MOV NUM, -(SP) ss TYPED 
: i TYPOC CRUE FoR Lipton 
017646 oo0000 STYPOS: ;:PICKUP THE 
R TCH 
{3E35 i KOMBER OF pitt P45" TYPE 
neon RETURN ADDRES 
05 STYPOC: T THE ZERO > FILL, SuITOH 
bleed STYPON: vat ie i ABT 1BH COUNT 
10446 Save RY 
kia + apye THE NUMBER OF DIGITS TO TYPE 
TRACT IT FOR MAX. ALLOWED 
Save i Fon USE “pice 
ieee ae ThE INPUT NUMBER 
173E Bde8G3 THE OUTPUT WORD 
40760 006105 1S:  ABtare es 
1 2: RM Tite DIGIT 
198 
ath BAP TBS 3S: T LSB OF THIS DIGIT 
7208 105337 041100 Hie THIS DIGIT? 
i Os 177770 GET AY OF JUNK 
7505 1010 1002 ; TEST FOR O 
709 BIS + ic ies THIS 0? 
7509 O4iGie 00060 _— a D seraraS aceon x 
7510 O410e4 0040 Ss: i poate NOT ALREADY 
eeie i id 1oo4 YPE THIS OicIT 
sets 641340 108337 Butboe 7$: ae 
751% 1048 ? BR IF MORE TO DO 
AS¢ LAST DIGIT ISN'T A BLANK 
Ze1g Buideg Goeens idee le 
7218 041058 Te 6S: ete 
? :3 
7Be¢ O4i0e 01 be 000002 oo0004 -:SET THE SFacK FOR RETURNING 
7522 041070 012616 





or ee ee ee —_— - -_< as 


SEQ O14S 


ee -_- -- 


D12 
CZREIEO,UNIBUS KE DR PRTE . -MACYII 39RC19E22, JO-JRN-ZB. 1:25. ERGE 1M6 seo 01M 
7523 o0000¢ RTI po 
990 es: “BYTE  HRRtRa SR FEE He Rll ne 


74 

7s ' 

Ball we ES Poa a 
hail ity eNPUT RGUT INE ay 


7 
7 
7$31 
AY cue gas 
1106 000000 
0411 


ee ee ee re RHERREE 


,ENABL KCNT : WORD , {INPUT Poin + TEMS IN QUEUE 


WORD 0 ; OUTPUT POINTER 
















re 18 990001 K Mg “BLKB 1 tf TTy KEYBOARD QUEUE 
38 1112 
FeO .4TK INITIAL 
peut ster bod TTTNe WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
roNe OP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 
Lp y ete ts 
4S t i JSR PC, STKINT 
Pout ; # RE TURN 
7548 041112 005037 041102 $TKINT: CLR » CLEAR COUNT OF ITEMS IN QUEUE 
7549 041116 12737 Bide 041104 MOV SSTKOSRT  STKa N 3; MOVE THE STARTING ADORE CTY 1 POINTERS. 
feet Builse tie y aSTKSHY afKvec iif NYTALI? he KEYBOARD VECTOR 
7552 tise Ber 009200 000062 MOV e200, autkvecee. -.0 “BORE 
beey ties BY35 Aga14¢ 137764 Vv , aSTKS Bette KEYBOARD INTERRUPT 
7555 041160 000207 RTS pe ‘RETURN TO CALLE 











a 
Feee dav etin pOuTLL SERVICE THE TTY KEYBOARD INTERRUPT 
HE CHARACTER FROM THE INPUT BUFFER AND PUTTING 


caps Mp IS A “CONTROL-C” (tC) STKINT IS CALLED AND 
7 aon XIT IS “MADE TO THE “CONTROL-C” RESTART ADDRESS (STOP) 





<A 
O44 
fr 


11 177 1377 TKSRV: KB. -(SP) - PICK THE CHARACTER 
S Butt AdS5 te 135285 $rks Bfee £ B, {35} ric tee BP HE 
7566 O4117e 021627 000003 cn (SP), 4 is if A "CONTROL Cc? 
mh Rin eg Siti Sr am A 
7576 ar 1g 008786 ST (SP) + ug CEA NOP Stack 

7i 1 1 036262 J STOP : CON ART 

2 Os i28 051505 000007 1S: CNP hace Be iT i CONTROL G? 

74 l 5 7 000176 001140 CM #SWREG, SWR S SOF T-SuR SELECTED? 
7576 041232 O01500 BEQ 6$ :GO TO SWR CHANGE 
7577 041234 2$: 
7578 O41e34 022737 OOO000l o41102 CMP #1, STKCNT ::IS THE QUEUE FULL? 


- 













































UNI RK& OR PRT2 MACY11 30A(10S2) 10-JAN-78 II: 147 SEQ 0147 
Pili TTY INPUT ROUTINE 
1 3$ ; ;BRANCH IF _NO 
l 001200 ELL >?RING THE TTY BELL 
{SP + CLEAN AN CHARACTER OFF OF STACK 
i 000023 3S: CSP), 423 °:1S ITA CONTROL -S? 
l 32S : BRANCH IF NO 
! 137656 a$stkS :: DI ae TTY oEYBORRD INTERRUPTS 
(SP)+ ; | CLEAN 
l 137650 31S: TKS $5 
1274 1$ UNTIL TS THERE 
l 137644 a$TKB,-(SP) 
1; 00 #10177, (SP) ies “BIT ASCII 
i o l CMP {SP )+, bei 3531S NTROL-@? 
i 4 000100 137622 MOV 3100, aSTKS he TTY KEYBOARD INTERRUPTS 
l l 32S: INC STKCNT CHARACTER 
1 BoA its CMP (SP), #140 IT Lipa ge 
1 000175 (SP), #175 A AL CHAR? 
ea Re mere ee a ee 
l 177530 4g: CoP ys aSTKQIN + SOND. N SUEDE 
1 O41 104 TkaIh . 3 a Tf OINTER 
: 11 O41111 _ N, 8S TKQGEND 7 
1396 041110 041104 Vv SSTKQSRT, STKQIN :;: T THE NO ner 
B41 376 ss: RITE apron: § | “Sa 
icorlunRe SHITCH REGISTER CE ROUTINE. 
2g 1S S ENTERED Ip ROR ae ea HANDLER AND WILL 
#SERV rien OPERA CHANGE IN SOF Ty ITCH REGISTER TRAP 
TING. rN TTY iy 
O41%06 O51 134 000176 001140 bak ee S06 T-SWR SELECTED 
1410 1057 137530 KS : HAR WAITING? 
Biisie IMG sa7seu peer 
Re Bes ee ey oa me 
041432 861300 P bite NOT, PUT i In THE TTY QUEUE 
::AND EXIT 
pean ts passed TO THIS POINT FROM EITHER THE TTY INTERRUPT S 
OL 1S PAS SED TO THIS POINT F THE TTY INTERRUPT SERVICE 
seouTise FROM egies gIsTeR cal A RESULT OF A 
: *CONT 4 BEI TCH REGIS ISTER BE BEING SELECTED. 
1434 123787 001134 ooo001 6S: CMP Ne I MODE ? 
ia boSeee ‘CLEAR OFF STACK 
uae OO8737 O4I112 fee eeeBfanr toa § THAT SIGE 
041456 112737 O00001 001135 MOVB aT. SINTAG OPA PTERRUPT rear TNTERRY 
O41464 104401 oO42322 TYPE , SCNTLG ;;ECHO THE CONTROL-G (?G) 


mm ee ee re - 


TTT TTT TTT TTT TTT ET LLL ee 
Ar RR LL —— mmr ce ne - 


em TT LT 
——E EEE ee en eee eee mmm ec a ae -- —- . 








































O UNIBUS RK& OR PRT2 MACY11 30A(10S2) 10-JAN-78 11:25 PAGE 148 SEQ 0148 
Pll 10-JAN-78 09:43 TTY INPUT ROUTINE 

1470 042327 SGTSWR: TYPE SMSWR :3T CURRENT CONTENTS 
1474 000176 MOV SWREG, - (SP) :: SAVE SWREG FOR TYPEOUT 
i 042340 TYPE’. SMINEL OT FOR MEH SI ee CNGETS) 
l 19S: CLR ~(SP) ; CLEAR COUNTE 
151 CLR mt es W SWR 
151 137426 7$: TSTB as KS : : CHAR HERE? 
151 BPL $ ::IF NOT TRY AGAIN 
l 137422 MOVB aSTKB,-(SP) » PICK CHAR 

By tesa 130056 BIC #10177, (SP) °:MAKE IT 7-BIT ASCII 
i (SP), #3 ::IS IT A CONTROL-C? 
i 3 rye SCNTLC ji YES, ECHO CONTROL ~C (#0) 
ieee 00113S oo00001 cHPB SINTAG, #1 . aoe al KEYBOARD INTERRUPTS? 
l 000100 137360 MOV #100, aSTKS OTT OL TTY KEYBOARD INTERRUPTS 
1564 036262 8S: IMP STOP ::CONTROL-C RESTART 
1570 000025 95: CMP (SP), #25 315 ITA CONTROL -U? 
1S 042315 PYRE SCNTLU :: YES CHO CONTROL —U (tU) 
1268 06 20S: ADD b&. SP tt TER ORE VIOUS UT 

041606 BR 19$ -:LET’S TRY IT AGAIN 

4114 10$: (oe), 018 a IT A scm? 
1616 4¢3P) 2: YES is IT HE FIRST CHAR? 
1 137306 3135) aswR : Ve NEW 
i te + éRL ELE CPR we cL > 
t 000001 ; t NTAG, #1 o 8 ry KBD INTERRUPTS? 
ie 137264 -_ poy #100, a$TKS TTY KBD INTERRUPTS 
1 165: JSR PC. $TYPEC 
1666 CMP (SP), #60 
i BLT 18$ 
1674 CMP (SP), #67 
1 BGT 18$ 
17 BIC #60, (SP)+ 
17 TST 2(SP) 
171 BEO 178 
1714 ASL (SP) 

o4171 ASL (SP) 
17 ASL (SP) 
17 00000e 17S: INC 2(SP) 
17 177776 BIS -2(SP), (SP) 
17 BR 7§ ::GET THE NEXT ONE 

041734 001204 18$: TYPE SQUES >; TYPE ?<CR><LF> 

041740 BR 20$ :: SIMULATE CONTROL-U 





re -_- - 


——_ ST Se ae — 


Gl 
:2eS PA 


CZREIEO UNIBUS GE 149 S 4 
eght EQ 0149 


ee Sancza os:4g Yt! SPRY ERBuT ROUTINE 





N 
<= 
fu 


Pus be fee bm he bs fe pe be 


229292922222229 
NERTERRE 


29 





: 
; 
: 


SPERRDRER ETS 


eo 





ESSE PEPE SS 
apy —298 






ME=VUTS 
SaSeoae 


aan 
SoRons 


4 

4 
041766 
041102 
O4i1 
177108 
041108 
041110 


ONESi0 


000177 


Roos) 
179997 
042266 


OuSSe4 


000002 


000004 
OY1111 
041106 


042264 


.DSABL LSB 


fee ee ee eRe tee TT A GINGLE CHARACTER FROM THE TTY 


: ATHI IS S ROUTINE WILL INPUT A 


i ROCHR 

: RETURN HERE 

SROCHR: MOV (SP), -(SP) 
MOV 4(SP},2°(SP) 
CLR 4 (SP) 
CLR ~(SP) 
MOV 864$,-(SP) 
RTI 

64S: 

1S: TST STKCNT 
BEQ My 
DEC KCNT 
MOVB Us a fl ,»4(SP) 
INC 


CMP TKQOUT, #STKQEND’ ; 
BNE 


SINGLE CHARACTER FROM THE T 


;;GET A CHARACTER FROM THE QUEUE 
:;WITH PARITY BIT STRIPPED OFF 


:PUSH DOWN THE PC AND 
oct ADY FOR A CHARACTER 
3 7PU 1 NeW PS ON STACK 
::PUT NEW ON STACK 
::POP NEW PC AND PS 


::WAIT ON A CHARACTER 


Er oe commer 


B ET G0 OFF OF THE END’ 





d 
MOV #STKQSRT, srwecut’ i" - RESET Te POINTER 
[tteesseeeecereneeresnensnnsasbbasssaneceeneneenenenennnneneees 


; ATHIS ROUTINE WILL INPUT A STRING FROM T 





i. RETURN HERE ORES OF FIRST CHARACTER WILL BE ON THE STACK 
ta ST OPRNTNATOR Wd WILL BE A BYTE OF ALL O’S 
SROLIN: 73 


MOV R3,-(SP) 
C -(§ 








LR ( 
: MOV eSTTYIN.R 

43: CMP SSI TYINSSS, RB 

BLOS ug 

RDCHR 

MOVB (SP)+. (R3) 
10S: CMPB #177, (R3) 

fey Zep) 

NE $ 

MOVB #’\,9S 

TYPE 

MOV b-1, (SP) 
6$: DEC oS 

MP Rg, #STTYIN 

LO 4 

MOV (R3), 98 

TYP ) 

BR os 
Ss: TST (SP) 

BEQ 7§ 


RUBOUT KEY 
FULL? 








py oe FROM THE TTY 


: GR A BACK SLASH 
i Bac THE RUBOUT KEY 
; BAC UP BY ONE 


K 
TACK EMPTY? 

+ R IF YES 
es Ue TO TYPEOQUT THE DELETED CHAR. 
i YPE 

;GO READ ANOTHER CHAR. 
; {RUBOUT KEY SET? 

;BR IF NO 


ES A me me . 


= mh SS LLL 
TTT VS MS SS mM 























CZR6IEO UNIBUS RK& OR PRT2 MACY11 30A(10S2) 10-JAN-78 ILI: 150 SEQ 0150 
CZR6IE.P11 10-JAN-78 09:43 TTY INPUT ROUTINE 
7747 1 112737 000134 o42264 MOVB #’\, 9S :; TYPE A BACK SLASH 
oous 48140 ; 451 — top) EAR T T KEY 
a see o0002s 7$: S, (R3) $5 HARACTER A CTRL U? 
? 154 042315 SCNTLU 55 TYPE. A 8 CONTROL “ue 
7753 l $5 T OVER 
7754 gs: g22, (R3) ARAL ER A “tR”? 
ae, oR3) ; BRANC 
5528 901205 , SCRLF : Ty a tar ere 
7758 2266 TTYIN Roe ANT bs Ei nN 
77 2 1GKUF T HACTER 
7760 001204 ug: SQUES 
7761 is His THE BUFFER AND LOOP 
77 obH 3S: oe -:ECHO THE CHARACTER 
7764 i5 C biS, (R3)+ CHECK FOR RETURN 
7765 BNE 2$ 1,00 TE IF NOT 
? CLR “3(R3) 
7767 . TYP F 
27 TST (SP )+ : EN RUBOUT. KEY FROM THE STACK 
7708 Buseus Roy (8b) (Bp BEI noer OF THE 
7008 Bs pobbee ietatatele MOV aSTIYIN G(SP) 
7774 9$: .BYT } FOR ASCII CHAR. TO TYP 
77 BY a ie ars: TOR . 
77 STTYIN: .BLK 2 SE RVE 22 BYTES FOR TTY INPUT 
77 o0so015 000 S$CNTLC: .ASCIZ /tC/<15><12> :C 
777 0000 CNTLU: .ASC /¢ AL a ss CONTR Ror “_ 
77 I 0 CNTLG: .ASC /¢ ait ier! > ::CONTROL “G” 
oe As 0S11 : .ASC <15><1le>/SWR = 7 
778s 042516 O20127 SMNEW: .ASCIZ / NEW = / 
re ~ even 
7785 -SBTTL READ AN OCTAL NUMBER FROM THE TTY 
cos -ERERERMSEERESREERHSRKERRERERRE SERRA RKAERAKRERE LEHRER RERHEE SERED REESE 
7788 i ATHIS ROUT INE WILL LL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
7790 T RS KED TO I Y ARE 
7731 Pees ee Ts. sea oe ILLEGAL CHARACTER Ys READ B aeY ARE (HILL BE CAL TYPED 
oes | STHEN HOHE R RETYRED. THE NELIT uA OEE ARINETED & BY HE COMPLET AQ EO DRR TARE RE RETURN. 
779 is 
oo ae * BOO IRN HERE LOW ORDER Bits eRe ON TOP OF THE STACK 
7737 a HIGH ORDER BITS ARE IN $ 
7799 352 011646 SRDOCT: MOV (SP).-(SP) : s PROVIDE SPA E FOR THE 
7800 45354 016666 o00004 ooD0002 MOV 4(SP5.2°SP) ero, BER 
7801 O4e362 O10046 MOV RO, -(SP) ; PUSH RO.-ON STACK 
7802 O42364 O1OLYHE MOV R1.-(SP) ::PUSH R1 ON STACK 


es —- --- —_ —— -——- 


Ile 









CZROIEC. UNIBUS RK& OR PRT2 MACY11 30A(10S2) 10-JAN-78 11:25 PAGE 151 SEQ 0151 
CZRGEIE.P11 10-JAN-78 09:43 READ Ali OCTAL NUMBER FROM THE TTY 

ceo 2370 oasiT l 1$ Ot tere 5 OU H BN Rect? CINE 

7808 37¢ neon MOV (SP) +, RC EGET RODRESS OF 1ST CHARACTER 

? CLR RI PCL Baa DATA WORD 

7808 2s: MOVE (ROi+,-(SP) ee KUP THIS CHARACTER 

7e18 1G 000060 cnPe #00, (SP) 8 MAKE SURE THIS CHARACTER 

781 6 000067 CMPB a7, (SP) 

7814 BLT ug 

7815 ASL R1 :;*2 

7816 ROL Ro 

781 oy 30 SL RI + #4 

7818 ROL Re 

rele Ree mR we 

7821 177770 BIC #4C7. (SP) ;;STRIP THE ASCII JUNK 

786 ADD (SP )+, Ri ss BOO IN THIS DIGIT 

ose Sy 000012 - nov RT 12(SP) + ELEBN TERMINATOR a ween 

7 042510 MOV Re’ $HIOCT 

7Be MOV (SP)+,Re ::POP STACK INTO Re 

7828 4 MOV (SP)+’RI1 ::POP STACK INTO R 

7829 eure MOV (SP)+'RO RET STACK INT 5 RO 

oBai 4g: TS (SP)+ ee recis, FROM STACK 

7836 oued?s 105010 CLRB (RO) :SET A TERMINA 

783 Os 76 104401 TYPE -TYPE UP T THE BAD CHAR. 

7834 2s 000000 Ss: .WORD O 

7835 O4250e 104401 001204 TYPE SQUES sae “CR” & “LF” 

7836 O42eS06 000730 BR | Y AGAIN 

7837 O42510 o00000 SHIOCT: .WORD O NIGH ORDER BITS GO HERE 

7838 . SBTTL DOUBLE LENGTH BINARY TO patie ASCII CONVERT ROUTINE 

rB4y ‘THIS ROUTINE WILL CONVERT A 32-BIT UNSIGNED BINARY NUMBER TO AN 

7842 | SUNS YGHED ate at Sci? NUMBER. 7 

ro : MOV ag lest ; ;POINTER, TO TO oh oe WORD OF BINARY NUMBER 

oe * a RETURN iS HE ADBRESS oF Fue FIRST ASCIZ CHAR. IS ON THE STACK 

7848 : 

7849 O42512 104413 $DB20: SAVREG ; : SAVE ALL REGISTERS 

7850 Os 4 O16 Ol oo0002 MOV 2(SP).R1 ::PICKUP THE PO NTER TO LOW WORD 

7851 1 042631 MOV #SOCTYL+13.,RS ;;POINTER TO DATA TABLE 

7852 O4eSe4 012704 000014 MOV #12.,R4 ;;D0 ELEVEN CHARACTERS 

7853 042530 012703 177770 MOV ##C7_R3 : : MASK 

7854 oueo 24 12100 MOV (R1)4+,RO ::LOWER WORD 

7855 12101 MOV (R1)+°R1 ::HIGH WORD 

7856 O4eS540 oO0s002 CLR R2 : : TERMINATOR 

7857 O4eSH4e 110245 1S: MOVB Re, -(RS) ::PUT CHARACTER IN DATA TABLE 

7858 O42544 010002 MOV RO; Re ::GET THIS DIGIT 


. —s Tr ~~ — — 





v 


te -S 
UnUn 


ond 
wo mm 







_~ 


oReRraRNs 


EEPLPELEPIPILELS 


non 
bee 
=r 


Rtadatat at at atl at 
SSRRDRE Ese 


PEPPLPEEELELELS 


NNN 


229229999 
Se 
wry ya 


oO 
= 
ah 
“ 
iT 





DR PRTe 


304 
ci 








BUS RK& 
10-JAN-78 09:43 


000060 


000002 
043012 
00000e 


o42745 


042744 


000060 


MACY11 30A( 1052) 
DOU 


042730 















10-JAN-78 11:25 PAGE 152 SEQ O1S2 
BLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 
C wy ;;COUNT THIS CHARACTER 
3$ -:BR IF AST DIGIT 
es ;; BR LAST DIGIT 
RS AL POINTER FOR FIRST 
RS,2(SP) 8S ON THE STACK 
| a 
PC ;;RE 
2$: R3 : PO MASK FOR THE LAST DIGIT 
3$: R1 PO NUMBER FOR 
RO : DIGIT 
R1 
RO 
R1 
RO 
R3,Re ;;MASK OUT ALL JUNK 
#’°O,Re : THIS CHAR. ASCII 
1S . T IT IN THE DATA TABLE 
SOCTVL: .BLKB 14. : > RESE DATA T 
-SBTTL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 
ss LEEEEELELELE LARA AL LLELSAL ALLL ALE LLALKALLA LALA LAALERAELLL AREAS ES 
-&THIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED 
*#DECIMAL (ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE 
»*#POSITIVE. 
: MOV #PNTR.-(SP) ::POINTER TO LOW WORD OF BINARY NUMBER 
* a JSR Pc, a#$DB2D 
* a RE TURN -: THE FIRST SS OF ASCIZ 
>:IS ON THE STACK 
$DB2D: SAVREG ;: SAVE REG 
MOV s SE IGKUE THE. DATA POINTER 
MOV 3 5 GE S “"S$DECVL” STRING 
MOV :: PUT S ASCIZ STRING ON STACK 
salad >:PICKUP THE BINARY NUMBER 
MOV ;; SET T 10 CONVERSIONS 
MOV tt aE ORESS ame Pe POWER 
1S: CLR >; CLEAR PARTIAL 
2s: SUB :: SUBTRACT TEN POWER 
SUB 
BLT ;;BR_IF TEN POWER TO LARGE 
INC ::ADD 1 TO PARTIAL 
BR es -:LO 
3S: ROD CR4)+,RI :: RESTORE SUBTRACTED VALUE 
ADD (R4)+,R2 
CMP (RS)+° (RS)+ ;;MOVE TO NEXT TEN POWER 
BIS #’O.R :: CHANGE PARTIAL TO ASCII 
MOVB R3, (RO)+ ss IT 
DEC (PC) + : : DONE? 
4g: . WORD 0 
BNE 1$ ::BR IF NO 


LT ee 


ee me —— 


DR PRTe MACY11 30A(10S2) 10-JAN-78 11:25 PAGE 153 SEQ 0153 
10-JAN-78 09:43 DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 

CLRB (RO) + ;; TERMINATOR 
RESREG > RESTORE REGISTERS 
RTS PC ; ;sRETURN 

STNPWR: 145000 ;:;1.0€09 
35632 
160400 ;;1.0€08 
2765 
113200 ;;1.0€07 
230 
ee ;;1.0€06 
—_— ;;1.0E€0S 
-— -;1.0€04 
= ;;1.0&03 
te ;;1.0&0e 
ae ;;1.0E01 
4 ;;1.0€00 

SDECVL: .BLKB_ ie -;RESERVE STORAGE FOR ASCIZ STRING 


_SBTTL SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE 


= = SESE SE 36 AE SE SE SE aE Se He EE SE SE SE a a a a a a HH a 
;#THIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN 
ro DECIMAL ASCIZ NUMBER. 


ta MOV NUMBER, -(SP) ;;PUT BINARY NUMBER ON THE STACK ~ 
a JSR PC, J#$SB2D > CALL 
: i RETURN :: ADDRESS OF THE 1ST ASCIZ CHAR.IS ON THE STACK 
000002 O430S56 $SB2D: MOV 2(SP).1$ ;;SAVE BINARY NUMBER 
043056 MOV #1$.-(SP) ::SET POINTER 
42632 JSR PC, a#$0B20 ::CALL DOUBLE LENGTH CONVERT 
oo00s A aS’ (SP) *: ONLY ALLOW FIVE CHARACTERS 
oo00002 MOV (SP)+,2(SP) :: PICKUP POINTER 
TS PC ; RETURN 
000000 0 


1S: . WORD 0 
_SBTTL TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 


s3 RKEKHKREKRKKRAASALAAASKAEAAAAAAA RA AAAEAARERAAAAAALERERAKKARARAAAALEERER 
:&THIS ROUTINE Is USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE 





; #LEADING NUMBE 
: i MOV #NUMADR,-(SP)  ;;FIRST ADDRESS OF ASCIZ STRING 
: JSR PC, J#SSUPRS 
0100 SSUPRS: MOV RO, -(SP) ;;SAVE RO 
0166 000004 MOV 4(5P), RO ::PICKUP THE POINTER 
1057 1$: TSTB (RO) ; ; TERMINATEOR? 
7970 043072 001403 BEG PES ::BR IF YES 


_— —— 


eee ees ae ree 


2 —s peo 


ee —— —_ 


L12 





















CZR6IEO UNIBUS RK& DR PRT MACY11 30A(10S2) 10-JAN-78 11:25 PAGE 154 SEQ O1S4 
CZREIE.P1LI 10-JAN-78 09:43 TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 
i 043074 27 000060 CMPB #’°0, (RO)+ 315 THIS AN ASCII “0” ” 
eee a ee: Bickle By oy 
os O16b37 043112 MOV RO. 35 Save FoR TYPING 
tie o00000 3$ TTORD OO see Ty BOINTER GOES HERE 
oa3ii5 i MOV (SP) +,RO i RPC e ee Af 
116 Olebl6 MOV (SP)+’ (SP) :: RESTORE THE STACK 
043120 000207 ers ss 
_SBTTL INTEGER MULTIPLY ROUTINE 
ee ee eee eee ey 
: i MOV MUL TIPLER, -(SP) 
: i MOV MUCTIPLICAND > <SP) 
;% JSR PCat 
: RETURN ;;PRODUCT IS ON THE STACK 
5 STACK PRODUCT 
:% TOP LSB’ 
-% +2 MSB’ 
aise SMULT: 
l MOV RO,-(SP) . STACK 
3124 MOV R1.-(SP) : STACK 
0431 MOV Re, -(SP) ;;PUS STACK 
rl CLR -(SP) CLE i KEY 
1 000012 MOV 1e(SP),Ri . PL ICAND 
1 BPL 1 ;; BR 
043140 INC (SP) -: SET K 
3142 NEG Rl ; > MAK I 
03 043144 000014 1S: MOV 14(SP),Re GET 
8004 Busies BPL 2s : ;BR 
g00S l DEC (SP) : > UP 
8006 043154 NEG Re : > MAK 
8007 p43! 000021 2$: MOV #17. ,-(SP) 
1 CLR R 
8003S O43164 3$: BCC 4 
8010 31 ADD R2,RO 
801 31 4g: ROR RO 
1 1 i ROR Ri CAND 
8013 O43128 005316 DEC (SP) OF THE MULTIPLICAND BEEN DONE? 
8015 3200 e616 CMP (SP)+, (SP) CT BE NEGATIVE? 
8016 14 BEQ F NO 
8017 3204 400 NEG RO IT SO 
8018 35 401 NEG Ri 
8019 10 D05600 SBC RO 
B0e0 ou3e16 Ss: TST (SP)+ ; CLEAR SIGN INFO. OFF OF STACK 
i 4 000012 Vv RO, 12(SP) 7 T RODUCT ON THE STACK (MSB’S) 
3220 O 000010 MOV R1' 10(SP) ::LSB’S 
3 secu i MOV ($P)+, Re ::POP STACK INTO Re 
43226 MOV (SP)+'RI ::POP STACK INTO RI 
043230 O MOV (SP)+'RO ::POP STACK INTO RO 
043232 O RTS pc 





er 


CZREIEO UNIBUS RK& DR PRTe MACY11 30A(10S2) 10-JAN-78 11:25 PAGE 15S SEQ O1S5 
CZR6IE.P11 10-JAN-78 09:43 SAVE AND RESTORE RO-RS ROUTINES 


.SBTTL SAVE AND RESTORE RO-RS ROUTINES 
«SE SE 36 HE HE bE SE SE gE EE aE Se aE a a a a a a 











i ESAVE RO-RS 
* i SAVREG 
jeuron RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 
: #TOP---( +16) 
* a ort s48) 
% +4---RS 
;% +6---RY 
# +8---R3 
: #+10---R2 
:#+12---R1 
: #+14---RO 
8043 
4 3234 SSAVREG: 
S 34 01004 MOV RO,-(SP) ;:PUSH RO ON STACK 
3638 010146 MOV Ri. -(SP) -:PUSH R1 ON STACK 
804 10246 MOV Re, -(SP) ; ;PUSH ON STACK 
8048 OY3e4%e 010346 MOV R3,-(SP) ;;PUSH R3 ON STACK 
ou zede 10446 MOV RY: -(SP) i i PUSH RY ON STACK 
i ue 0022 HOV BS hep ac P) as. Re RAIN FLOM 
a6 =~ ° 
B0e> By35e4 Bieede n000e2 MOV Seep)’ - (ep tt OVE pe “F MAIN FLOW 
8053 3260 016646 o000e2 MOV 22(SP),-(SP) ; 1 SAVE PS OF CALL 
BoS4 4 O1B646 000022 MOV 22(5P),-(SP) -: SAVE PC OF CALL 
5 RTI 
80S6 
8057 ;*RESTORE RO-RS 
«CALL: 
80S RESREG 
04327 ag 
806 OM 7 012666 000022 MOV (SP)+,22(SP) ; RESTORE PC OF CALL 
BOE? 32 12666 o00022 (SP)+, 22(SP) - > REST PS OF CALL 
8063 3302 O12666 o00022 MOV (SP)+; 20(SP) : REST PC OF MAIN FLOW 
Ore 3308 15688 000022 MOV fant g (SP) - REST OF MAIN FLOW 
1 1 MOV (SP)+, ss TACK ints R 
p43314 012604 MOV (SP)+;R4 ::POP STACK INTO R4Y 
16 012603 MOV (5P)+,R3 -:POP STACK INTO R3 
04 O1Se01 HOV (3P)+; 81 {Pop STACK INTO a 
126 MOV (SP)+°R . TACK INTO R 
043326 o0000e RTI ; 
.SBTTL TRAP DECODER 
; j ERA AMARERENAEMEMERRER ENR HEME COWER BYTE OF THE “ TRAP’ INSTRUCTI 
jATHIS “USE I iN INDEX Th SRO Loe RAP OF Te Tes TAATING NG LE DORESS 
: OF Yee de rReD OUTINE. ya T U ING RAP TABLE FOR OBTAINED T WILL 
: GO tO” THAT ROUTINE 
0433 010046 STRAP: MOV RO.-(SP) ;;SAVE RO 
433 016600 oo000e MOV e(SP), RO ::GET TRAP ADDRESS 
3336 005740 TST ::BACKUP BY 2 
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STRAPe: MOV 
MOV 
RTI 


10-JAN-78 IIL: 
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igor 
STRPAD(PO),RO 
RO 


(SP) ,-(SP) 
4(SP},2(SP) 


.SBTTL TRAP TABLE 
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$TRPAD: 40 


TAINS T 
INSTRUCTION 


t CALL =TYPON 
: sCALL=TYPDS 
; ;CALL=GTSWR 
; ; CALL=CKSWR 
; ;CALL=RDCHR 
netics 

: sCALL=RDOCT 

: ;CALL=SAVREG 


: sCALL=RESREG 
;;CALL=SCOP1 
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TTY TYPEIN STRING 


SEs 





3 RO-R 
ESTORE RO-RS ROUTINE 
INTERNAL 






LOOP ON ERROR 


OUTINE 
R FROM TTY 


SEQ 0156 





se | ™ 


= — —_——. <<a = ——— 


B13 


SES 0157 


/<CR><LF> 


‘“\ 
O 
! 
— 
oO 
4 
— 
z 
Oo 
© 
Oo 
z 
Lan) 
a 
> 
= 
> 
@ 
2 
oO 
Q 
uJ 
— 
wnad 
eo 
Ps 
uJ 
@m 
OQ 
— 
—_) 
oO 
<= 
Wn 
= 
se 
a 
Oo 
2) 
a 
a 
Ww 
~~ 
< 
- 
\“ 
“A 
re 
— 
v 
A 
a 
© 
w 


<CR><LF>/OTHERWISE, CARTRIDGE FORMATTING AND, OR THE DORIVE/ 








“ lJ 
cu > 
" cs 
8 a 
fe “ | 
a. taj ~J 
1 “A oad an 
1 re a © 
© ~—J - » 
~ v Ww uw 
load “~ 
mn x QO Oo 
2 | © lJ uJ 
a ~ ae om 
é ‘“\ mH wm 
az * = la 
~ - a - ~ 
oO we taj Oo 
* -— lJ la] 
uJ oh la] mM Oo 
> Oo Le 
_ z za >] 2 | 
a © — - all 
=) ol 
- =_ uw) > 
nw ~ wn e uJ ~J 
| u & > ~J 
= a ©& z pot az 
it 4 v -_ gc oun 
4 ~ -« Oo z= 
n 8 ex -— az 
wh Oo -« re - = 
a #& . & 4 \ wn 
la oO al Oo 
Oo Ww lu lJ az cz 
es — ~ m ~ lJ 
a. am wW - x 
bt ' > ims 
y az z= . 
w oa YO = _ Le 
fu _* oe “\ ‘ “ 
se vy) “aA “a “a aA “aA “A 
~ re re BR & re re re 
_ aul an all J ail | 
Le « Vv vy ww v v v 
a a ee Y ~ ~ 
ge x ge 
nw uJ © oOo oO © © Oo 
t = wv v w w v vw 
z 
ie la 
Le) © ms — End i] i) mm wo 
{ ms hoe — -~ a i 4 i me 
Oo De © [> €<€> © © © © © 
~_ 4 Ww ww Ww Ww Ww Ww Ww) 
la) lal Le '? an © cz az Le (e « Le 
| uw) + 
cams * * | 
Tuc 
wre ~J 
| i se 
—0. Looe _ 
~c @ S & 
emta yw Ww 
or . = 
™ 
_ =~—MODK. OF eed eet on “—On0 «Wort OoOmoon 0mM-k. 
~~ ——.0TO ua % DSinnind qucuce or- nor Fle ah ga 
> i 4 a gaa ee ce aro “+ gee 
z zo os sears ween geeet a sre Saez 
Ss ere r 5 O44 845054 855445 8SSS 
canis =a tjwr-0DO 
™ 0-57 
y 
tuo 
-O 
o@ 
~ 
Sz Sines 
wl pepe 
a i ' 
Ss 1 ee Oe Pe Oe Oe pe be pe ee ee bk ee )lCU OR Oe be be be ee ee ee ee Or er ee ee ee er ec er 1 Fs 8 
To 
ot 
w 
at a ee 
5 Bapseenesssessnboone 
oO - 
Wu tur) oo ROCCO uUMT 
lus DE ERENT ARETE 
0 come Rom Reem em Keen hem Doom Kam hem Kom Kam Kam Kem Kaen ha am ome ham Karn Kam iam Rane ham ere em Reem Beem Ree Kam am Ran Ron hoe ee he, ee ee ee ee ee ee LL) 
Ri DODD VDODOVD ODOWMDWMDVOMD MD OMVD OVNI OD VOVOVDNVDI DODO VDVDVDODOVMDVOD ODOVWVOI VOM OVOOWVD OMOVODVOVODNODWOVOOONON® 
YQ 


EE ET TT LT TT 





———--+ -—- ——-<— ——< —— ae - 


— = — ———-- 


CZREIEO 
CZR6 


IE 


pean em bm bt b= pe bm Pe bs bs et Be ba Be he be he pe pe RS Pe 


BBVT LOO Odo VOU £ oH Ges ON 





Scere 





-Pll 


ag 
0440 


ree sss: 
Pb ae be bm eb he Pe 


ERSGSWES 





Z33% 3233 
OBR ee 


pESSSS33: 
NOnOKE 


Hu 


UNIBUS RK& 
l 10-J 


04 


DR PRT 
AN-78 05:43 
is 





MACY11 30A(1 
ERV 

020056 

041505 


ra 
WwW 


Gir 


zt BS 58 
A Leet De 
Wr MUNK NG 


29 
att 


a 


= 
ul 


- 
ul 


e 


zs 2 


8 
re 


2 


ROAD 
Cb Be be ee 
£Oo0Or) 
OuWIo~ ONO 


MSGe: 


MSG3: 


MSG4: 


MSGS: 


Tce messnces 


ASCII 


.ASCIT 


-ASCIT 


-ASCII 


-ASCIZ 


-ASCIT 


-ASCIZ 


.ASCIZ 


-ASCIZ 


.ASCIZ 


11:2S PAGE 158 


(CR><LF>/B. CORRECT PORT SELECTED/ 


<CR><LF>/C. WRITE LOCK DISABLED/ 


<CR><LF>7D. DRIVE READY INDICATOR ON/<CR><LF> 


<CR><LF>/DRIVES NOT TO BE TESTED MUST HAVE/ 


<CR><LF>/BOTH PORTS DESELECTED/<CR><LF> 


<CR><LF>/CHANGE XXDP PACK/ 


<CR><LF>/CLEAR LOC 40,RESTART PROGRAM/ 


<CR><LF>/DRIVE(S) TO BE TESTED: / 


<CR><LF>/TYPE BUSS ADDRESS IF NOT 177440: 


(CR><LF>/TYPE CONTROLLER INTERRUPT VECTOR 


4 


IF NOT 210: 
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SEQ 0158 
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SERVICE MESSAGES 


MSGB6: 


MSG7: 


MSGB: 


MSGS: 


MSG10: 


MSGI11: 


MSGle: 


MSG13: 
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-ASCIZ 


-ASCIZ 


.ASCIZ 
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-ASCIZ 


-ASCIT 


-ASCIZ 


ASCII 


-ASCIZ 


<CR><LF>/INTERRUPT OCCURRED AT PC=/ 


<CR><LF>/DRIVE O WILL NOT BE TESTED/ 


<CR><LF>/READ DATA WITH OFFSET TEST/<CR><LF> 


<CR><LF>/HEAD NO. 7 


<CR><LF><LF>/WILL TEST DRIVES: 7 


<CR><LF><LF>/POWER UP RESTART TO TEST 1/<CR><LF> 


<CR><LF><LF>/THE ABOVE OFFSET FAILURES ARE NOT ERRORS/ 


<CR><LF>/BUT INDICATORS OF SURFACE,HEAD, & ELECTRONICS QUALITY/<CR><LF» 


<CR><LF>/NO L OR P CLOCKS PRESENT / 


<CR><LF> HEAD SWITCHING TIME TEST BYPASSED/ 
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MSG14: .ASCIZ <CR*<LF>/BYPASSING DRIVE / 


MSG1S: .ASCIZ <CR><LF><LF>/DRIVE / 
MSG16: .ASCIZ <CR><LF>/DRIVE SERIAL NO. / 


MSG17: .ASCIZ <CR><LF>/CARTRIDGE SERIAL NO. / 


MSG26: .ASCIZ <CR><LF><LF>/ABORTING BALANCE OF TESTS ON THIS DRIVE/<CR><LF><LF> 


Uy ee 


eet fi anna 


MSG27: .ASCIZ <CR><LF><LF>/ALL DRIVES TESTED/<CR><LF><LF> 
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MSG37: .ASCIZ <CR><LF>/“NO WRITE CHECK ERROR AT MAX POSITIVE OFFSET/ 


399995 


MSG38: .ASCIZ <CR><LF>/NO WRITE CHECK ERROR AT MAX NEGATIVE OFFSET/<CR><LF> 
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MSG39: .ASCIZ <CR><LF>/WRITE CHECK FAILURE AT OFFSET =/ 
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MSG4YO: .ASCII <CR><LF>/COULD NOT READ BAD SECTOR INFO ON CYL 410/ 
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MSG74: .ASCIZ <CR><LF>/PROGRAM ABORT PENDING...PLEASE WAIT/ 


ott 


MSG7S: .ASCIZ <CR><LF>/HALT PENDING...PLEASE | AIT/ 
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é B17 MSG76: © .ASCIZ <CR><LF>/PROGRAM ABORTED” 
104 
Z Gies MSG77: .ASCIZ <CR><LF>/CPU HALTED/ 
a 
837 
8374 .SBTTL ERROR MESSAGES 
7 OMe 412g EM: — .ASCIZ <CR><LF>/ERROR, ONLY O THRU 7 ALLOWED, TRY AGAIN/<CR><LF) 
s . 
m 
e mt ? 
8380 O4€ 2527 
8361 ¢ 4522 
hues J€ 7111 
D4b< EM2:  .ASCIZ /DRIVE # IN RKCS2 CANNOT BE READ BACK CORRECTLY IN RKMR2/ 
’ : 
8386 OYE ; 
fe ‘ 
8369 : 
8390 ; 
= . ’ 
Aba 
Sg 46 300 
334 04630: EM3:  .ASCIZ <CR><LF>/ABORT TESTS...UNEXPECTED TIME OUT AT PC=/ 
8... | - ' 
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/DRA IN RKDS & NED IN RKCS2 RESET; WRONG PORT SELECTED? / 
/DRIVE PRESENT BUT NOT SPECIFIED BY OPERATOR 
. CANNOT REFERENCE CONTROLLER REGISTER/ 


/DRIVE NOT PRESENT BUT SPECIFIED BY OPERATOR 


/DRA IN RKDS & NED IN RKCS2@ BOTH SET’ 
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f EMle: -ASCIZ 


EM13: .ASCIZ 


/CONTROLLER NOT READY IN RKCS1/ 


“NO ATTN IN RKASOF / 


if faaigs EM14: .ASCIZ /UNEXPECTED MEMORY PARITY TRAP/ 
o40S2e0 O044S2e2 
% RTrkb Nee EMIS: .ASCII /RKDC 8&8 RKDA INDICATE THAT WCE OCCURRED AT’ 
1 
2 ej 
7e31 1 .ASCIZ <CR><LF>/CYL 411, TRACK 2, SECTOR 217 
ou7 E36 032040 
ae 
7 
7 1 EM16: .ASCIZ /CANNOT READ BAD SECTOR INFORMATION 
047 020124 
ZHI Busse 
Ie Baby 
ei ay EM17: .ASCIZ /MESSAGE AD ERROR/ 
7 ll 
r EM18: -ASCIZ /MESSAGE BO ERROR’ 
7 
7 Be EM19: .ASCIZ /MESSAGE Al ERROR/ 
741 ll | 
741 EM2e0: .ASCIZ /MESSAGE B1 ERROR/ 
O4r90 O4 
auae ba EMe1: .ASCIZ /CERR SET IN RKCSI1/ 
oueuas 1 
O474Eb EM22: -ASCII /NO DRIVES FOUND IN DEVICE MAP (S$DEYM) 7<CR><LF> 
047474 047125 
047502 O42040 
047510 0105 
047516 2050 
047524 45] 
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“SETUP CORRECTLY AND RESTART ~<CR><LF> 


/NO DRIVES FOUND ON BUSS/<CR><LF> 


“SETUP CORRECTLY AND PRESS ‘CONTINUE’ /<CR><LF> 


“VOL VALID NOT SET IN RKMR2/ 


<CR><LF>/DETECTED 10 BAD SECTORS...ABORTING TEST” 


/DETECTED BSE BUT NOT LISTED IN BAD SECTOR FILE/ 


/DETECTED BSE IN READ COMMAND 


(CR><LF>/BUT NOT IN PREVIOUS WRITE COMMAND TO SAME SECTOR 


/CYL ADDR IN RKMR3 NOT SAME AS RKDC/ 
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/CYL DIFF & OFFSET IN RKMR2 NOT CLEARED, 


/CYL ADDR IN RKMR3 NOT CLEARED/ 


/CYL ADDR IN Be DID NOT REMAIN CLEARED’ 


ZATTN NOT CLEARED IN RKASOF / 


/DLT SET IN RKCS2/ 
“READ HEADER ERROR/ 


ALIGNMENT CARTRIDGE USED/ 


/CTO SET IN RKCSI1/ 


“ZRTZ NOT SET IN RKMRe/ 


“NED SET IN RKCS2/ 


/WRITE CHECK ERROR SET IN RKCSe/ 


/WRITE CHECK COMMAND NOT FUNCTIONING/ 
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CZREIEO UNIBUS RK& OR PRT2 MACY11 30A(10S2) 10-JAN-78 11:25 PAGE 168 SEO 0168 
CZR6IE.PI11 10-JAN-78 09:43 DATA HEADERS 
Beit pu7 p49 DHE: .ASCIZ /TEST NO. TRAP PC/ 
1S20 000 
"e 954198 DHS: .ASCIZ /AFTER START SPINDLE COMMAND REC’D BY DRIVE/ 
8: 
1681 G51? 
525} i640 
0S< l 1 
328} 111 
' 
Se 1 116 DH10 .ASCIZ /AT END OF HEAD LOADING/ 
S21 pusei6 
Se 1 941808 DH11 _ASCIZ /EXPECTED WAS’ 
g IS¢ l ae 7 
' 
Be pes 5a8 i, 041S50S OH13 -.ASCIZ /ON SECTORS 10, 12, 14, 16, 18 OR 20 CYL 410 TRACK 2/ 
754 OS22e068 047524 030440 
& J MS , i 
| ’ 
2S ++ 
DBs : 55 ¢ 
Boon Res 
7 ‘ 
87s Sc i DH14: .ASCIZ /ON SECTORS 11, 13, 15, 17, 19 OR 21 CYL 410 TRACK 2/ 
764 
76S 
876 1117 
as 
1 
e771 101 920128 DH17:  .ASCIZ /AFTER RECAL COMMAND 
775 bayi 1 
7 ge01 ee DH19: .ASCIZ /AFTER PACK COMMAND, 
1440 
046517 042116 
18} Bai tRs DH20: .ASCIZ /AFTER SELECT DRIVE COMMAND/ 
1 : 
isa Lil 
0106 046515 
043101 920122 DH21: .ASCIZ /AFTER SUBSYSTEM CLEARY 
os2Se2 1531 
Oieped 046103 
043101 020122 DH22: $.ASCIZ /AFTER DRIVE CLEAR COMMAND/ 
1104 020105 
046103 020122 
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DATA HEADERS 


047101 
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DHe4: 


DH31: 


DH3e2: 


DH33: 


DH4e: 


-ASCIZ 


-ASCIZ 


-ASCIZ 


.ASCIZ 


-ASCIZ 
-ASCIZ 
-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


.ASCIZ 


-ASCIZ 


/AFTER CFFSET COMMAND/ 


“AFTER SEEK COMMAND/ 


AFTER READ DATA COMMAND/ 


/AFTER WRITE DATA COMMAND, 


/ EXPECT/ 
/ ACTUAL / 
/AFTER READ HEADER COMMAND/ 


7AD BO Al Bl Re Be B3/ 


/AFTER WRITE CHECK COMMAND 


/AFTER WRITE HEADER COMMAND/ 


/WORD# HEADER WAS SHOULD BE/ 


/DURING RECAL COMMAND 


ZON SECTORS 0,2,4,6 OR 8 CYL 410 TRACK 2” 
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SEQ 0169 
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DATA HEADERS 
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DHY3: 


DH44: 


DH47: 


DHYS: 


DHS1: 


DHSe: 


DHS3: 


DHS4: 


DHSE: 


-ASCIZ 


-ASCIZ 


-ASCIZ 


.ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


ZON SECTORS 1,3,5,7 OR 9 CYL 410 TRACK 2/7 


/FORMAT & ALL READ-WRITE TESTS WILL BE BYPASSED/ 


ZAFTER READ HEADER COMMAND WITH MOVEMENT / 


/MSG A & B IN RKMR2 & RKMRS RESP. ARE INVALID 


/AFTER SEEK TO SELF COMMAND/ 


/WITH INTENTIONAL MISCOMPARE/ 


/DURING OFFSET COMMAND/ 


/AFTER FORMAT CHANGE AND CONTR READY REC’D/ 


“CYL # HEADER WORD 0/7 


SES 0170 


ee ™ 
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CZR6IE.P11 10-JAN-78 09:43 DATA HEADERS 


Ba83 Reseep e ON Ree O4212e 





8905 053671 1105 DHS7: .ASCIZ /AFTER WRITE COMMAND WITH OFFSET/ 
| 630) 2rd 
71 lll 
8309 ? 051506 
8311 
e312 .SBTTL ERROR OUTPUT DATA 
Sais OT1 Feet RRP 
psig 3¢ g07404 AMAT HARE. 3,HER,HDS,HCS1,HCS2 
8317 7354 
8919 007364 HC, HBA, HDA, HASOF , HDC, HPOS,, HPAT 
007406 
T3: TESTN, TRAPP 
001344 Bta: STESTN’ SCRRPC, FRCYL, TOCYL, CALDIF 
B32 Pat 907404 HMR1,HMR2, HMR3, HER, HDS,HCS1,HCS2 
8928 054026 00736"; HWC, HBA, HDA, HASOF , HDC, HPOS,, HPAT 
¥,* 007406 
393] 001454 OTb:  STESTN,SERRPC,WO2,WO1 
393. 907404 HMR1, HMR2, HMR3, HER, HDS,HCS1,HCS2 
8934 OSs 007354 
4 HWC , HBA, HDA, HASOF , HDC , HPOS , HPAT 
ae nf reget p . ; 

Mi 001472 DT7: STESTN, SERRPC, WOCNT, HDWD, TEMP! 
ear 41 007404 HMR1,HMR2,HMR3, HER, HDS, HCS1,HCS2 
S645 E41 ews 
8944 054140 007364 HC, HBA, HDA, HASOF , HDC, HPOS, HPAT 

4146 007406 

ie 001346 OTB: STESTN, SERRPC, TOCYL,FRCYL, CALDIF 
8949 0541 007404 HMR 1, HMR2, HMR3, HER, HOS, HCS1,HCS2 

4176 007354 

4 7364 HWC , HBA, HDA, HASOF , HDC, HPOS , HPAT 

4214 7406 
e954 054 
Bsee ae i! 001346 O0T9: STESTN, SERRPC, TOCYL, RHTAB 

ae 
B35 4234 OC 007404 HMR1,HMR2,HMR3,HER,HOS,HCS1,HCS2 
e958 OS4e42 00737 007354 
| 
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BbFaBe 


007444 
b074 


007354 


007364 
007406 


boras2 
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0074S2 
lag 
0074 
m074 


007404 
007354 


007364 
007406 


10-JAN-78 11:25 PAGE 17e 


ERROR OUTPUT DATA 


DT13: 


DT14: 


OT1S: 


. SBTTL 
DF 1: 


DFe: 


DF 3: 


HWC , HBA, HDA, HASOF , HDC, HPOS, HPAT 


STESTN, SERRPC,E.AO,E.B0,E.A1,E.81,H.AO,H.B0,H.AL,H.B1 


HMR1,HMR2,HMR3, HER, HOS, HCS1,HCS2 
HWC , HBA, HDA, HASOF , HDC , HPOS , HPAT 
STESTN, SERRPC,E£.A0,E.B80,E.A1,E.81,E.Ae,E.Be 


H.AO,H.B0,H.A1,H.B1,H.A2,H.Be 
HMR1,HMR2,HMR3,HER,HDS,HCS1,HCSe 


HWC , HBA, HDA, HASOF , HDC , HPOS , HPAT 

STESTN, SERRPC,E.AO,E.B0,E.A1,E.81,E.A2,E.Be,E.B3 
H.AO,H.B80,H.AL,H.B1,H.A2,H.B2,H.B3 

HMR1,HMR2, HMR3,HER,HOS,HCS1,HCS2e 


HWC ,HBA, HDA, HASOF , HOC, HPOS, HPAT 


ERROR DATA FORMATS 


3 

.BYTE 2,0 
OYTE 7,0 
1 

-BYTE 2,0 
S 

.BYTE 0,0 
DH1 

-BYTE 2,0 
DH11 

OVTE 2,0 


SES 0172 


- TT Oe OTT, EE EEE EE EE Tw — - 
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CZR6IEO UNIBUS RK6 DR _PRT2 MACY11 30Q(1052) 10-JAN-78 11:25 PAGE 173 SEQ 0173 
C2R6IE.Pil | 10-JAN-78 09:43 ERROR DATA FORMATS 
9015 054570 051664 DHe 
2016 054576 007 000 .BYTE 7,0 
1 74 0517 DH3 
2018 054576 ? 000 .BYTE 7,0 
$020 os4600 000003 OF4¥: 3 
302 “602 002 000 -BYTE 2,0 
902 051664 DH 
007 000 .BYTE 7,0 
10 051734 bH3 
4612 007 000 -BYTE 7,0 
4614 OFS: 5 
We, 000 -BYTE 0,0 
DH49 
000 -BYTE 0,0 
3 - he ala 
303 ub OHe 
90 000 .BYTE 7,0 
DH3 
30 00 000 -BYTE 7,0 
3c 46 OF 6: S 
4b 000 .BYTE 0,0 
4644 051647 OH1 
$033 seep 000 BYTE 2,0 
304 000 “BYTE 3,0 
g044 054654 051664 DHe 
go4s 054656 007 000 .BYTE 7,0 
2046 O54660 051734 DH3 
204 007 000 -BYTE 7,0 
4048 
2050 OS4664 vu ine ee 
ee " He 0 
3054 054674 OHe 
5 0546 000 -BYTE 7,0 
4 DH3 
2057 0547 000 -BYTE 7,0 
9089 054704 OF 14: 4 
9060 054706 002 000 .BYTE 2,0 
306 471 DHYO 
471 003 000 -BYTE 3,0 
4714 OH 
9064 054716 007 000 -BYTE 7,0 
ee Selres 20 re 7.0 
3067 ! 
9068 
054724 o00004 DFIS: 4 


4 
OS4726 000 000 .BYTE 0,0 
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10-JAN-78 


ERROR DATA FORMATS 


DF 17: 


OF 20: 


DFel: 


DF ee: 


DH1 

-BYTE 2,0 
bH2 

.BYTE 7,0 
DH3 

‘BYTE 7,0 
S 

.BYTE 0,0 
DH44 

OH1 

-BYTE 2,0 
DH 

-BYTE 7,0 
bH3 

,BYTE 7,0 
-BYTE 0,0 
DH1 

-BYTE 2,0 
DHS 

-BYTE 2,0 
DH2 

“BYTE 7,0 
DH3 

-BYTE 7,0 
7 

.BYTE 0,0 
DH1 

“BYTE 2,0 
bH28 

“BYTE 0,0 
bH31 

“BYTE 4,0 
bH29 

“BYTE 4,0 
DH 

“BYTE 7,0 
OH3 

-BYTE 7,0 
7 

.BYTE 0,0 
DH1 

-BYTE 2,0 
bH28 

-BYTE 0,0 
bH31 

DH29 

“BYTE 6,0 
bH2 

“BYTE 7,0 
DH3 


ll 


FLY 
:25 PAGE 


174 


SEQ 0174 


NN em 
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ZR6IEO UNIBUS RKE DR PRTe MACY11 308(1052) 10-JAN-78 11:25 PAGE 17S SES 0175 
ZR6IE.P11 10-JAN-78 09:43 ERROR DATA FORMATS 
27 085102 007 000 .BYTE 7,0 
1 7 DFe3: 7 
: 000 .BYTE 0,0 
110 OS164 DH1 
OSSlle 002 000 -BYTE 2,0 
114 one 
+38 000 wYie 69,8 
0Se DH31 
OSS l2e 00 000 -BYTE 7,0 
51 0S267 DHes 
2} 000 wYTE 7,0 
1 0S 1664 OHe 
05S132 007 000 .BYTE 7,0 
peels) 0S17 OH3 
136 007 000 E -BYTE 7,0 
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igrice"Yen*przasetenrengeeeensesnamnaneneesesennsnseneonnees 
: J Pics 5 
{SRE TURN Ris Bt 
“ITEM o ee ev Tee ¢ pier? TO DETERMINE WHICH 
HEN i E” (SERRTB) 
NF MATION I O BE 


:aTH TINE 
ae Ee eae 
i SENT BRO TED CONCERNING 


22 sibizeeseneneeanenensenensenernenneneeneve 


beh 


EPORTED: 
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l 
Sie bee us eT, «ENTE Suan es 
peels Be FORA" 1ROEN FORT ERAGN aac 
ossl ASL RO 
l ASL RO 
l 7526 1S: ADD #SERRTB,.RO ESS OF OF ERROR ENTRY 
1 S202 MOV (R0)+, 8 ‘Ger EM ER 
S174 001205 Tyee , SCRLF y etna RETURN LINE FEED 
Soe e$: .WORD O é INTER GOES He HERE 
osS220 $: MOV (RO)+,4S T IN 
0sSe1 BEQ s ences IF THERE ISN’T ONE 
l 001205 TYPE , SCRLF 
S As 
4g: .WORD O NTER HERE 
os S$: MOV (RO)+,R1 OT OT POINTE 
BEQ 20s B ETHER QRE NONE 
CLR 4 get 6 ITCH 
MOV (RO)+,RO T DINTE 3 
MOV (RO)+,Re R OF DH’ 
BEQ 17$ + BH ONUM S O0-BRANCH 
COM RY :NO INDENT 
1 OL 001205 TYP SCRLF 
11 10$: MOV (RO)+,R3 -GET & STORE NUMBER OF DATA WORDS 
81 105720 TSTB (RO)+ :BUMP PAST FORMAT WORD 
82 005703 TST R3 -TEST IF ANY DATA FOR THIS HEADER 
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MACYL1 30A(10S2) 10-JAN-78 11:25 PAGE 176 SES 0176 
TYPE ERROR ROUTINE 


CZR6IEO UNIBUS RKG DR PRTe 
CZR6IE.P11 ses poser 09:43 





- SKIP DATA PRINT 


















_— eo 


ET le 





2183 14S : NO 
l 11S: MOV a(R1)+,-(SP) ‘PUT FIRST DATA WORD ON STACK 
$185 TYPOC -TYPE IT 
2188 08 . 3 : MOR TA WORDS 
l Q 14S : NO= 
31 oss414 TYPE SPACE2 SEPARATORS 
91 BR 11s 
$1 14S: DEC Re :MORE DH’S? 
3 L 20$ : NO-BRANCH 
l 001205 Y S$CRLF 
91 000002 TST 5° RO) A DH IN THIS REQUEST” 
313 BEG 1Ss Yes “BRANCH BYPASS INDENT 
31 : cs : NO- BRANCH 
gig? o0SS414 OYE SP : YES-TYPE SPACES 
39198 055326 1S$: MOV tRO)+. 16% ‘GET NEXT DH POINTER 
ix ™ pie 
16S: Wd 0 iy ‘Dts GOES HERE 
i TSTB (RO) YeE A Of 
BNE 21$ 
oo00002 ADD #2.RO0 INERETENT OF. MOF POINTER 
R 14% F END OF DF BLOCK 
001205 21S: YPE SCRLF 
TST RY ; INDENT? 
BNE 10$ : NO-BRANCH 
OSS414 17S: ry 1 SACE? ; YES- TYPE SPACES 
35 10 20S: RESREG 
$818 010000 123550 BIT eSWi2, ISWR :SEE IF ABORT DRV AFTER 20 ERRORS 
e516 001103 oo00e4 CMP RFLG, #20. i ELSE SE IF HAVE 20 ERRORS 
16 001100 MOV #STACK, SP EL Se RESTORE STACK PTR 
3612 0314S2 IMP SEOP AND GO TO NEXT ORV 
9219 oss: PC 
9556 000 SPACEe2: RAecIz/ 7 :2 SPACES 
ace} ; ODT-11 -- VOOSA 
aee3 ; DEC-11-UODPA-A-LA 
$225 ; COPYRIGHT 1969, 1970,1972 
S226 : DIGITAL EQUIPMENT CORPORATION 
9227 : MAYNARD, MASSACHUSETTS 01754 
9228 -ENABL ABS, AMA 
229 S42 -EVEN 
9230 0 580 +60 
9231 000000 RO = xO : REGISTER 
000001 Ri s %1 : NAMING 
$233 000002 R2 = %2 : CONVENTIONS 
9234 0 0003 R3 ~ “3 
9235 000004 a4 = “4 
9236 o0000s RS * “Ss 
9237 000006 SP s “b 
9238 000007 PC - “? 


oe - - 2 ————.—s- 


14 









UNIBUS RK& DR PRT2 MACYIL1 30A(10S2) 10-JAN-78 11:25 PAGE 177 SES 3177 
“Pll 10-JAN-78 09:43 TYPE ERROR ROUTINE 
177776 ST : 177776 :STATUS REGISTER 
000014 6.TvEC = 14 TRT VECTOR LOCATION 
000340 0.STM = 340 t PRIORITY Y MASK - ae ATUS REGISTER 
000020 0.TBT = 0 -T-BIT MASK - STATUS REGISTER 
000003 TRT = 000003 -TRT INSTRUCTION 
000006 RTT = O000G06 ‘RTT INSTRUCTION 
: RS IS USUALLY CONSIDERED SAFE, THE C 
: RESIDES I AFTER A BREAKPOINT , yare is "get 10 TO "ZERO, RO AND SEARCH 
: OPERATION OTHERWISE HOULD NOT 
: BE USED E ILLeb. 0! ADDRESS POINTE ER (CAD). 
177562 6.R0B = R DATA BUFFER 
177560 O.RCSR = 3 
177566 0.TOB = A BUFFER 
177564 0.TCSR = 
9eS6 : 
ge : INITIALIZE ODT 
: USE O.ODT FOR A NORMAL ENTRY 
926 : USE 0.0D0T+2 TO RESTART ODT - WIPING OUT ALL BREAKPOINTS 
: USE 0.0DT+4 TO RE-ENTER (I.E. - FAKE A BREAKPOINT) 
a5E5 osssoo 000413 6.00T: BR 0.STRT : ENTRY 
9264 OS5502 000417 BR O.RST ‘Rest ART 
9265 OSSSO4 013737 177776 OSS460 O.ENTR: MOV ST.0.UST ‘RE-ENTER -- SAVE STATUS 
ge66 05521 13737 000016 177776 MOV 0. TVEC+2,ST : SET UP OCAL STATUS 
926 ees 10737 OSS5456 MOV PC.0.UPC -FAKE THE PC 
acb8 ossSSe4 137 056656 JMP 0.BKi 
56 440 §8.STRT: MOV #0.URO, SP 
355 OS5e34 pe2deg MOV SP prose PME Se ie O80 STACK 
927 40 BR O.RST1 POINT TABLES 
927 Sy 057064 O.RST: JSR 0,0.SVR CAE VE REGIST 
9274 2 S476 177716 MOV O'UIN,JO.ADR1 :REMO BREAKPOINT 
3275 SY 055462 MOVB 0.PRI;RY GET 067 IORITY 
3676 2260 RORB RY : SHIFT 
Ft O88 RORB om . T 
9555 S8be 177776 MOV RY. ST STORE Ih In- STATUS 
Ses0 Osss O.RST1: JMP (Pt)+ 
9281 055574 BR 0.45 
032978 OS6S66 MOV #RTI,O.RTIT :SET TO RTL IF 11720 OR /OS 
S 0.45: CLRB O.P ; DISALLOW 
055610 000340 ooool6 MOV #0.STM, 0. TVEC+2 ;STA TUS WORD +6 TRT VECTOR + 2 
055616 OS6E46 000014 MOV #0.BRK'O.TVEC  ;PC TO TRT VEC 
S624 BR 0.RALL’ ‘CLEAR BREAKPOINT TABLES 





SPECIAL NAME HANDLER 





' DEPENDS UPON THE EXPLICIT ORDER OF THE TWO TABLES 0O.TL AND O.URO 
OSS626 004537 057306 8.REGT: JSR S.0.GET :SPECIAL NAME, GET ONE MORE CHARACTER 
05563e 012704 057531 MOV #0. TL.RY : TABLE START ADDRESS 
OSS636 120024 O.RSP: CMPB RO. (R4)+ -IS THIS THE CORRECT CHARACTER? 
OSS640 O01413 BEG 0. SP : JUMP IF YES 


—— a A ee - 


CZRSIEO UNIBUS RKE DR PRTe 








CZREIE.P1) 10-JAN-78 09:43 
te 0$7537 
453308 177770 
Se 
02 
yy 
seen 0S7S22 
0007 
004737 0OS7432 
10S0e 
e0e 
02 
Ape aes 
302 
Boa 76 
BaDT a? 056172 
a3 
33 
5 005702 
om 001406 
006204 
103410 
006304 
93 010437 oOSS47e2 
ease BOOS 
$32 RASS 0S7S46 
9328 0406 
9329 
9330 
Fett 
9335 
9334 
9335 70S oo0oo0o1 
gaa S208 000077 
933 057364 
338 37 0OS7464 


3 
3 
> | 
3 
3 


reer: 
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TYPE ERROR ROUTINE 















cn #0. TL+0.LG,R4 1S TH THE SEARCH DONE ? 
BI #177770,RO0 : MASK oR ore oc AL 
MOV RO, RY 
.SP1: ASL Ry 
ADD #0.URO,R4 ; GENERATE ADDRESS 
INC Re SET FOUND FL 
BR 0. SCAN ‘G0 FIND NEXT "GHaRACTER 
.SP: Sue #0. TL-7,R4 ‘CORRECT CONSTAN 
BR 0. SPI 
* HANDLER - OPEN INDEXED ON THE PC 
.ORPC: JSR PC,O.TCLS 
MOV sCURRENT ADDRESS IN Re 
ADD are, Re ; COMPUTE 
ASR OTF S00 BIT TO CARRY 
BCs 0. ERR TERROR I NUMBER 
ASL Re HL 
TST (Re)+ BAO” INCREMENT BY TWO 
MOV R2.RS : UPDAT 
IMP 0. 6P2 :GO FINISH UP 
B HANDLER - SET AND REMOVE BREAKPUINTS 
.BKPT: TST Re ; IF NO NUMBER TYPED 
BEQ 0. RALL : REMOVE BREAKPOINT 
ASR RY ; CHE CK F ODD 
BCS 0.ERR 
ASL ‘REST ORE ONE BIT 
HOV R40. ADRI :SET A BREAKPOINT 
-RALL: MOV #0. TRTC,O.ADRI ;CLEAR BREAKPOINT 


0.020 
COMMAND DECODER - ODT11 


GISTERS RO-RY MAY BE USED 
EGISTER RS WILL BE CONSIDERED SAFE 





.ERR: BIS #1.R5 1955 E RYTHING 
MOV a’? RO ro 
JSR S,0:FTYP : 
.0CD: JSR 5’O.CRLS :T 
-DCD1: CLR RY : PaNe CONVERTED OCTAL 
CLR R2 F 
.SCAN: JSR 5,0.GET RO 
CMP #°0,RO0 : I 
BHI 0.CLGL NON-NUMERIC 
CMP #’7,RO : 
BLO 0.cLGL : NOT OCTAL 
BIC #177770,RO0 : 
ASL RY 
ASL RY : 
ASL RY : RY 
ADD RO,RY :PACK THREE BITS IN RY 


— a eee eee ee ee le — —— + 


oe ee ee - 


me mmr a me me et - 
— ee — oe _— ee a ee 
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CZ2REIE.P11 10-JAN-78 09:43 TYPE ERROR ROUTINE 
006760 aR. O° SCAN sme SO An 
l O.CLGL: CLR Ri ‘CLEAR INDEX 
DG 0s7515 0.LGLI: cnPE RO, 0-LGCH(RI) ;00 T S MATCH? 
INC Ri : cet NDEX FOR NEXT SEARCH 
l 000014 cn Rl, 80. CLGT -IS THE SEARCH DONE ? 
BR 0.LGL1 ; REL OOP 
pesos O.LGLe: ASL R1 *MULTIPLY BY TWO 
000171 056070 IMP 90.LGDR(R1) -GO TO PROPER ROUTINE 
056120 5. LGOR: 9. WRD or OPEN 
2 b1Se 0. CRET : srecisTeR CLOSE 
76 pePces 0.60 : a5 +3 EODRE S K 
109 056164 0.0P1 ; <LF> MODIFY, CLOSE, OPEN NEXT 
l OSS6 O:ORPC : © OPEN RELATED, INDEX - PC 
l 056216 0.BACK : ¢ OPEN PREVIOUS 
61 26 O.OFST :; O OFFSET 
11 6304 O.WSCH : WW SEARCH WORD 
OS6112 056300 O.EFF : E SEARCH EFFECTIVE ADDRESS 
056114 055724 O.BKPT ; 8B BREAKPOINT 
116 056570 0:PROC ; P PROCEED 
000030 O.LGL = '-0.LGDR ;LGL MUST EQUAL 2X CHLGT ALWAYS 
: PROCESS / - OPEN WORD 
956120 005702 6.WRD: TST Re GE NON-ZERO 
le2 O01410 BEQ 0.WRDA : SK 
gob 124 010405 MOV RY, RS : 
le6 O006205 O.WRD1: ASR RS MO 
056130 1937 0.ERRe: BCS 0. ERR : JUMP 
l 6 ASL RS : RE 
056134 011500 MOV aRS, RO : GE 
056136 p04 37 057222 JSR 510. CADV - GO 
Beei4a ONe7Oe oDo0o! O.WRDA: BIC ay sg? 
056150 000766 " BR 0.WRDI GO 
: PROCESS CARRIAGE RETURN 
055152 004737 057432 §.CRET: JSR PC,O.TCLS sCLOSE LOCATION 
056156 052705 o0000! BIS #1’ RS :CLOSE EVERYTHING 
056162 000702 BR 0.6cD ‘RETURN TO DECODER 
: PROCESS <LF>, OPEN NEXT WORD 
164 904737 057432 6.0P1: JSR PC.O.TCLS ;CLOSE PRESENT CELL 
170 S725 TST (RS)+ : GENERATE NEW ADDRESS 
056172 O004S37 oOS74S6 0.0P2: JSR S.0.CRLF :<CR><LF> 
056176 910590 MOV RS RO ‘NUMBER TO TYPE 
4537 0S7222 ISR S.5.CADV : TYPE OUT ADDRESS 
056204 012700 900057 MOV #'7 RO - TYPE A / 
056210 O004S37 057364 JSR S,0:FTYP 
056214 000744 BR O° WRD1 :GO PROCESS IT 
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: PROCESS *, OPEN PREVIOUS WORD 
0. BACK: ret te Sats RATE NEW ADDRESS 
5 ‘B33 ‘BENES the Rest 
: PROCESS 0, COMPUTE OFFSET 
6.0FST: ASR e5 ;GET LOW ORDER BIT 
Bcs u FERRE ‘ERROR IF CLOSED 
ASL RY :RESTORE WORD 
MOV s’ BO : TYPE BLANK 
ISR 5.0 FTYP : AS A SEPARATOR 
Boe RS. RM ; COMPUT 
C RY 16 BIT OFFSET 
V R4, ; TYPE A 
MOV RY. Re ;SAVE RY 
JSR S.5.CADV ‘NUMBER IN RO - WORD MODE 
MOV Re, RO 
ASR R :DIVIDE BY TWO 
Bcs 0.0F 1 ; BRANCH IF ODD 
ISR S,0.CADV :-NUMBEX IN RO - BYTE MODE 


e+ ee ee ee a] 


.OF 1: JMP 0.0CD1 ;ALL DONE 


SEARCHES - SMSK _ HAS THE MASK 
SMSK+2 HAS THE FWA 
SMSK+4 HAS THE LWA 


SES ©180 
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seeRReEReesae 


=3 


FSSSPPHLSPESISHAHSSH HSS: 


BOO NOLO Oe VOUS 


I ee —<— 


OSS466 
OSS464 
0SS470 


0S74S6 
057222 
000057 
0S7364 
0S7222 


177400 


057505 


TYPE ERROR ROUTINE 
, EFF: RI 
6.€ 0.WDS 
0O.WSCH: +e os 
g-ERRi. bea 82 

MOV 0 


COM 
0.WDOSe: 


0.WDS3: 


0.WDS4: 
O.EFF1: 


CMP 
BE 


Q 
C 
VB 
C 
L 
C 


ZNOOr- 





DOD-HDOWow 


D282 


: PROCESS G - GO 


b.Go:  cCLRB 


re) ok: 
= 


wro: 


R3 


RO 
0.WDS3 


0.P 
RY 
0.ERRe 
RY 


;SET EFFECTIVE SEARCH 
; SET WORD SEARCH 
SHE SK SPR WS oBiecr 
SET ORIGIN 

MASK 
‘AND COMPLEMENT IT 
. IS THE SEARCH ALL DONE? 
i geT OBJECT 
‘BRANCH IF EFFECTIVE SEARCH 
sEXCLUSIVE OR 
: IS DONE 

- IN A VERY 

; FANCY MANNER HERE 
‘AND RESULT WITH MASK 


F_NO MATCH 
R2e,R4Y, AND RS ARE SAFE 


-TYPE <CR 

’ 

-GET ¥ TO TYPE 
: TYPE" RODRESS 
-SLASH TO RO 

; TYPE IT 

GET C Tents 
- TYPE ENTS 
; REST RY 


p INCA TO NEXT CELL AND 









+2 
X)4+X42=K? 
4 EQUAL 
PE OUT EXTRANEOUS BITS 
TEND SIGN 
pL TEP BY TWO 
;ADD TWO 


sADD PC 
-IS THE RESULT A PROPER REL. BRANCH”? 


; DISALLOW cee 
-CHECK LOW ORDER BIT 
sERROR IF OOD NUMBE 
-RESTORE WO 


OO 
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ZR6IE.P11 10-JAN-78 09:43 TYPE ERROR ROUTINE 
433 3308 177776 ove «80 STH ST +38 
34 1S4 JSR 5, 0.RotT RESTORE TELE TY 
9495 O.TBIT: CLRB 0. ; CLEAR 80 
2438 2 oss4 0 BIC #0. TBT.O.UST : BI FLAG 
17674 476 MOV 90.ADRL,O.UIN ;SAVE INST ION 
gy O0S7S46 176732 MOV 0. TRTC, 90. ADRI ; REPLACE WITH TRAP 
gy 0.G02: MOV (SP)+, RO :RES 
MOV (eS Re : 
MOV (SP)+,Re : THRU 
95 MOV (SP)+:R3 
MOV ae Re . 
MOV (SP)+,RS : RS 
9S MOV (SP)+°SP : AND SP 
gS OSS460 MOV 0.UST; -(SP) AND STATUS 
95 o554S6 MOV 0.UPC;-(SP) : 
3208 O.RTIT: RTT ‘CHANGED TO RTI FOR 11720 AND 705 
9510 : PROCESS P - PROCEED 
212 : ONLY ALLOWED AFTER A BREAKPOINT 
951 6.PROC: TSTB 0.P 3 CHECK LEGALITY OF PROCEED 
gete BF ee — PEARY CEED 
3218 rst Re ot pe. re Se TE TED? 
3518 MOV R4,0.CT ives Put AWAY COUNT 
951 177776 O.PR1: MOVB 80.STM ST H PRIORITY 
9520 JSR S.0.rst Res 
go] 177776 O.Cl: ##MOVB #6.STM,ST “SET HI PRIORITY 
952 INCB 0.T ; SET T T-e1T FLAG 
OSS460 IS $0. TBT,0.UST -SET T-BIT 
95 0.60 
“A TRT BREAKPOINT S NTE WHICH SAVES 
: NT CAUSE FINDS. out FF The "BREAKPOINT WAS LEGAL, 
: AND GtVES. OS TROL TO THE NORMAND DECO 
OS6E46 012637 OSS4S6 me MOV (SP)+,0.UPC -PRIORITY IS 7 7 PON ENTRY 
D566 012637 055460 MOV (SP)+'0.UST SAVE 518 STATUS AND 
66 004 3 057064 0.BK1: JSR 0,0.SYR “on Yet REGISTERS 
? ? TSTB 0: T : CHECK F -BIT 
13 BNE 9. TBIT : 
88 13 OSS476 «176574 MOV "UIN,9O0.ADR1  ; INTS 
105737 O55462 TSTB 0.PRI ‘CHECK IF PRIORITY 
i BPL 0. BKe : : ER PGM 
osS460 MOVB 0.UST,RS -PICK UP F SO 
71 baa40 BR 0.BK3 :AND DON’T COMPUTE THE PRIORITY 
671 113708 oss462 0.BK2: MOVB 0.PRI,RS ‘OTHERWISE PICK UP ACTUAL PRIORITY 
67 0257 CCC ‘CLEAR CARRY 
? 106005 RORB RS ;SHIFT LOW ORDER BITS 
95 67 106005 RORB RS ; INTO 
9545 056724 106005 RORB RS ; HIGH ORDE 
9546 056726 106005 RORB RS : POSITION 
9547 056730 110537 177776 0.BK3: MOVB RS,ST ‘PUT THE STATUS AWAY WHERE IT BELONGS 


5 dt — RK6 DR _PRTe MACY11 308(10S52) 10-JAN-78 11:25 PAGE 183 SES 0183 


REIE.P 10-JAN-78 09:43 TYPE ERROR ROUTINE 
9548 oss4se MOV 0.UPC,RS :GET PC, IT POINTS TO THE TRT 
49 TST -(RS) : SUBTRAC 
50 UsS450 MOV RS,0.UPC >FROM THE USER’S PC 
95 OuG472 CMP RS’0_ADRI ‘COMPARE WITH LIST 
oS BEQ 0.62 : JUMP IF FOUND 
3 057122 ISR S,0.SVTT :SAVE TELETYPE STATUS 
9SS4 760 7456 ISR 5‘0.CRLF 
g9SssS 4 7510 MOV #0.80,R4 sERROR, NOTHING FOUND 
ae, > G7311 MOV #0.BD4+1.R3 
22 774 735 JSR 5,0, TYPE sOUTPUT “BE” FOR BAD ENTRY 
9559 000020 oss460 BIC #0: TBT,O.UST sCLEAR OUT ANY POSSIBLE FAKE T-B8IT 
1 BR 0.83 : AND CONTINUE 
701 OSS474 0.B2 DEC 0.CT 
1 BGT 0.Cl : JUMP IF REPEAT 
os 000001 oSS474 MOV #1 ,0.CT RESET COUNT TO 1 
e ° vv 
087058 OB7 128 JSR 5,0.SVTT ;SAVE TELETYPE STATUS, R4 IS SAFE 
057036 102 MOV #'B,RO 
05704 057364 JSR S,0.FTYP -TYPE “B” 
pes o4e 055472 MOV 0°ADR1,RO GET ADBRESS OF BREAK 
0570Se2 057222 0.83: JSR S.0.cAbV - TYPE ADDRESS 
057056 CLR RS C 
057060 055770 JMP 0.DCD -GO TO DECODER 





S SAVE REGISTERS RO-R6 IN INTERNAL STACK 


Thininin nin LANA UUM UTUTURURENUNENN 
a HR 


057064 12637 057502 6.SVR: MOV (SP)+,0. XXX ;PICK REGISTER FROM STACK AND SAVE 
7070 010637 O554S4 MOV SP,0.US : USER STACK ADDRESS 
057074 012706 055454 MOV #0: USP, SP -SET TO INTERNAL STACK 

057100 010546 MOV RS, -(SP) : SAV 

0571 10446 MOV RY’ -(SP) : REGISTERS 

057104 10346 MOV R3,-(SP) : J 

0571 10246 MOV Re, -(SP) : THRU 

7110 O10146 MOV R1;-(SP) } 

057112 013746 oS7502 MOV 0. XXX, -(SP) ‘PUT SAVED REGISTER ON STACK 

057116 005746 TST -(SP) 

0571 000200 RTS R 

: SAVE TELETYPE STATUS 
057122 113737 177560 os7S06 O6.SVTT: MOVB O.RCSR,O.CSR1 ;SAVE R C/SR 
0571 113737 177564 057507 MOVB 0.TCSR,O.CSRe ;SAVE T C/SR 
71 105037 17756 CLRB  O.RCSR ‘CLEAR ENABLE AND MAINTENANCE 

057142 105037 177564 CLRB 0O.TCSR S IN BOTH C/SR 
9593 057146 004537 05745 JSR S.0.CRLF : TYPE <CR,LF> 
2234 0571S2 oo0020S RTS & 
2238 : RESTORE TELETYPE STATUS 
9598 057154 004537 057456 . O.RSTT: JSR S,0.CRLF -<CR,LF> BEFORE RESTORING 
2°33 057 160 i 5737 177564 TSTB 0. TCSR ;WAIT READY ON PRINTER 
9601 057166 032737 OO4000 177560 BIT #4000,0.RCSR :CHECK BUSY FLAG ON READER 
9602 057174 001403 BEQ 0.RSEL :SKIP READY LOOP IF NOT BUSY 
9603 057176 105737 177560 TSTB =O. RCSR :WAIT READY 
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BPL 
0.RSE1: nove 






: TYPE OUT CONTENTS OF WORD OR BYTE WITH ONE TRAILING SPACE 
: WORD IS IN RO 
8.CADV: MOV Re, 5(SP) -SAVE R2 
MOV BUF +6, R4 ‘BUFFER START ADDRESS 
MOV sO -(SP5 -CONSTANT ASCII O 
0.SPC: HOV : GET -_ 
ite CONVERT To, BSCl 
MOVB -STO Sur ER 
ASR ;SHIFT THIS MESS 
ASR : RIGHT 
ASR ; THREE WHOLE PLACES 
eH : NO 
I -GET LAST BIT 
ADD s CONVERT TO ASCII 
4 VB fe PUT’ IT AWA 
JSR TYPE WHOLE STRING OF CHARACTERS 
MOV RESTORE Re 
RTS 
: GENERAL CHARACTER INPUT ROUTINE 
: CHARACTER INPUT GOES TO RO 
§.GET: TSTB 0. -RCSR » WAIT 
BPL : INPUT FROM KEYBOARD 
MOVB 9 “ROE RO -GET AC 
ISR O.F TYP “ECHO C 
BIC #177600, RO -STRIP OFF PARITY FROM CHARACTER 
BEQ 0.GET : IGNORE NULLS 
CMPB #40.RO * CHECK 
BEQ 0.GET : IGNORE NULLS 
CMPB #’: RO * CHECK FOR S SEM -COLON 
BEQ 0. GET : IGNORE THEM FOUND 
RTS RS 
: GENER CHARACTER OUTPUT ROUTINE 
: ADDRESS OF FIRST BYTE IN R4, 
: ADDRESS OF LAST BYTE IN R3, (R3)>(RY) 
6. TYPE: CMP R3,R4 i CHECK FOR COMPLETION 
BLO 0. tYP1 : EXIT WHEN DONE 
MOVB (R4)+.RO ;GET A CHARACTER 
ISR S,0.FTYP -TYPE ONE CHARACTER 
BR 0’ TYPE ‘LOOP UNTIL DONE 


6.FTYP: TSTB 


C15 


10-JAN-78 11:25 PAGE 184 


OUTINE 


§ £588. FE 





0.TCSR 


READER 


PFI Srerus RE 


* TYPE ONLY ONE CHARACTER (CONTAINED IN RO) 


;CHECK STATUS 


GISTERS 





|” _—_ 


SES 0184 


CZR6IEO UNIBUS RK& DR PRTe 
CZR6IE.P11 


BERREERNS 


o 
We) 






a atatatatatatatatat a 
BOVE USOC 





SRDERCSSRERRERESR BBORRERE 


Titututatatume alata 


BOSS 8S 
NNANNN 
GiuwuiaiuiUT 


= be 
NEWww-ODOS 


0.00 
NNN 


ee eee ees ee _ 









0S7S02 
0S7S04 
0S7S0S 


nM 
ee 


NOU fw 


10-JAN-78 09:4 


730 Lees? aa A? once 


105737 177564 





012703 
0004 
le7 
27 

7 

000205 


000000 
000 


0SS7S4 


MACY11 30A( 1052) 


10-JAN-78 


TYPE ERROR ROUTINE 


0. TYP2: 


. TYP1: 
CLOSE WOR 


Ces ereres E 


. TCLS: ASR 


O.CLS1: RT 
8: $ks TS 
IMP 
: O.CRLF - TYP 
- O.CRLS - TY 
8.CRLF: MOV 
BR 
O.CRLS: MOV 
0O.CRS: ey 
ISR 
RTS 
b.xxx:  .WO 
O.T: .BYTE 
0.P - BYTE 
O.CSR1: .BYTE 
0.CSR2e: . BYTE 
, -EVEN 
0.8D ~ WORD 
6.cR _BYTE 
-BYT 
YT 
§.LGCH: .BYTE 
BYTE 
"BYTE 
-BYTE 
BYTE 
-BYTE 


, OR 
UPON ENTERING, 


11:25 PAGE 185 SEQ D185 

-4 48 TIL READY 
RO,O.TOB Whe ONE HERACTER 
RO, a84S Is CHAR 15 BE FILLED? 

_TYP1 ii 
ani -(SP) -YES, INIT THE COUNT 

eo TY Cc 

TOB ;GENERATE NULL FILLER 
(SP)+ ;POP STACK 
BYTE AND EXIT 

Re HAS NUMERIC FLAG, RY HAS CONTENTS 
RG 96 L 
9. TC Sine TE : OROERDY Cc CLOSED 
Ra, ORS Ne HAGE. To 
-(SP) oo EXTRA CELL FROM STACK 
0.ERR ‘AND SCREAM BLOODY MURDER 
(CR,LF> 

<CR; LF># 
80.CR+1,R3 sLWA <CR,LF> 

#0. CR+E R3 :LWA <CR,LF># 

0.CR,R4 : 
5,0. TYPE : TYPE SOMETHING 
: 5 TEMPORARY STORAGE 

;PR Cc FLAG = = Q F PROC NOT ALLOWED 

. — iF PROCEED ALLOW 2 
0 SAVE CELL - 
0 -SAVE CELL - Be 
“BE 
015 s <CR> 
Ole s <LP> 

°s . *£ 

a A : 4 
915 : CARRIAGE RE TURN 

°C ; «€ 
Ole . <i? 

*& ; e 


TTT TTT EE EEE EEE TT LL eee err mem 


IBUS R 


0 
-§ 





K6 DR 
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> TABLE LENGTH 


runt wre 


;6 CHAR. BUFFER WITH 
; TRAILING BLANK 


PRT2 MACYLI 30AC: 052) 10-JAN-78 11:25 PAGE 186 
TYPE ERROR ROUTINE 
.BYTE of, 2 
YTE °O ; Q 

.BYTE *W ; 8 
.BYTE "Ee .. = 
.BYTE ’B - Bg 
BYTE ’P e. 

O.CLGT =z -0.LGCH 

6.7L: .BYTE °S ;D0 
.BYT ’pP : NOT 
.BYTE Mo : CHANGE 
.BYTE QO - THE 
-BYTE O - ORDER 
BYTE ’B * HERE 

O LG = -0.TL 

6. BUF 
= . +6 
. BYTE . 
EVEN 

6. TRTC: TRT 


; TRACE TRAP PROTOTYPE 


I THE ORDER OF THE FOLLOWING ENTRIES IS CRITICAL 


0O.URO: OQ 

0 

0 

0 

0 

0 
0.USP 0 
0. UPC 0 
0.UST 0 
0.PRI 7 
0O.MSK 0 

0 

0 
; BREAK POIN 
: UIN = CON 
6.ADR1: O 
0.CT: 0 
O.UIN 0 

. END 


0.0DT-40 
;USER RO 


ius PRIORITY 
: MASK 


:LOW LIMIT 
;HIGH LIMIT 


T LISTS, ADR1 = ADDRESS OF BREAKPOINT,CT 


= COUNT, 


SES 0186 
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CZRBIE.P11 10-JAN-78 09:43 CROSS REFERENCE TABLE -- USER SYMBOLS 
1889 1930 19448 
1889s 1932 
ACOWe ‘ze 1933 
ak 1593 1904 
lees 3298 
| = 1889 1934 
| l= 1889 1935 
10= 188g 
ll= 1889 
| le= 1889 
Apoat 1889 
| 14= 1889 
| S= 1889 
= 1889 1936 
= 1889 1937 
= 1889 1938 
= te 1939 
= 1889 1940 
= 1889 1941 
= 1889 
= 1889 
Ts 1889 1895 
VMN = 1889 1931 
Ny = 1889 1900 
NVM = 1889 1901 
AFATAL= 1889 1892 
AMADOR 1= 1889s 1917 
: ipso («1984 
AMADRY= 1889 1927 
= 1889s 1911 
= 1889 1919 
1889 1922 
= 188s 1925 
1889 1897 
1889 1898 
1889 1891 
1889 19le 
1889s 1920 
1889 1923 
1889s 1926 
1889s 1894 
1889 
ik th 74S18 
S976 72ce6b 7272 7407 74498 
3550 74488 
7274 7409 74508 
1889 ey 
1889 189 
e0sss 6183 6202 6228 
1889 1896 
1889 1903 
500000 iges «1989 
007340 204Ss 3306* 4020 41Sl# 44 19% 4608 S708* S923* S926% 6935 
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CROSS REFERENCE TABLE -- USER SYMBOLS 

4449 4519 4921 4981 
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641le# 6420# 6428 646S*% 6476# 6488s 6S0S* 6523# 6603# 6620 694S+# 
000034 11688 33 6146 6151 6170 6516 
‘ ve : Ree 7 6147 61Se 6171 
wet. 194Ss8 Ol# 6083% 6086# 60S3 
11588 3876% 4“O32% 4OSS*# 4131% 4163 4227% 43132 43728 44 16% 4450 # 4S17* 
4 ty 492e% 4982 S107%# S2b9# S34S*# S470 SS23* S643* S726# S777 S822 S876+# 
000010 LPS 
034714 6357 65588 
000006 92e4S8 
104413 7849 78930 81158 91S4 
036156 6278 6282 6286 6290 6294 6298 6302 68688 
000040 12098 3449 3463 3574 6460 
104415 th 3571 3788 4YO46 41S2 4219 4305 4365S 4440) 4580 S336 S76S 5813 
036230 68928 8117 
™ 001370 19778 Eel44 
SECFLG 035372 6653 66738 ' 
CNT 001374 19798 
SECTOR 001402 19828 M4 % 40S 4070 4071 4158 4159 4177 4178 4225 4301 4314 4373 
HHS yyy? 46, 7 % 4458 S20 4918% 4919 4938# 4939 4983 5108 S2bS# S266 
S283 S34 6478 64792 6480 6481 6482 6483 6SS58* 6S5S9% 6560 6561# 
ares 6563% 6580 65 673S* 6739 6740 6741 67S2 6762% 6763 6764 
SEEK = 000017 11848 3978 4737 4857 S747 $905 
SELORV= OQO0O0001 11778 793 4430 4Y4S5 Huy 4525 4557 63939 BAAS 6506 
SETINT OQ32206 3302 60938 
SIZFLG 007524 el4ls 3303% S3 6039* 6£0S9* 
SKI = 000002 lee4s 
SORT 035550 67328 
Aree Raantt 9188 9197 9208 $2208 
SRT = ll 11818 6S 
SRTTAB OO02132 20358 6744 
ST = TAEEA 92398 9265 9266% 9279% 9493# 9519% 9S21* 9S47#. 
STACK = 1100 104Se8 3166 3193 3355 3406 3461 3567 3872 3670 37406 3780 3739 3829 
4009 404, 4125 4153 4220 4306 4366 4410 Ly eyey | 4581 4625 4913 S206 
$337 SYyYSé6 S627 S707 S766 S814 S341 6363 7027 7065 9216 
STAPT 031634 S970 59768 
START 012eSS6 349 31648 
STARTI 1318) 5 
STKLMT= 177774 10S68 
STOP 036262 S324 69078 7571 76S4 
STe 013234 3263 32748 
ST3 013300 3264 32928 
eTe 51 33ee 3558 356 a tt ta 3509 S982 6976 
SUBCLR 034214 3 yy 3 3791 3831 3862 33900 3974 4O17 4YO49 4127 41SS 4222 4308 
4368 4412 BY 4583 462 4789 48S4 4915S S048 S210 $339 Syed S634 
S7le 5772 S816 5872 64608 6309 6921 
SVAL = 100000 12eS4s 
CWR 0114 18638 3191 3213% 3215 32e21# 3228 6008 6314 6324 6334 6344 6892 6991 
00 7147 7 7169 7176 7214 7221 7233. 7-237 7574 


6999 7004 7023 
7613 7668% 9212 


TT ne mmm 


ee eee -_— — —_—- _ 


ee —_—- _ 


——_—_— ee ——_ 


peeeeyy 


Ww 

= 

fb bo pe hs 
Wit Wwre-O 


= -_ _ 


aabeeerery 


a 


—~ 


CZREIEO UNIBUS RKE OR PRTe 
Pll 10-JAN-78 09:43 


CZR6IE 
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SWOO 
SWO1 
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007414 


007416 
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3221 6008 7574 7613 7636 
1109 
1108 
1107 
1106 
1105 
1104 
1103 
1102 
1i01 
1100 
Sele 
6991 
700 
6892 6999 7023 
grax Senge Beate 57Gis 5808s Bidvs «Elise 8130s 
98 Sar» 8803" BScse b58s" S53. B68" SSI 
6518% 6578% 6590% 6602* 6607# 66:9% 662% 6655 
PA 3949% 3958% S174*# S415* 5SS590% 6206* 6609* 
Ba35% 3938 33947 956 
3342 3950% 3951 3989% 3960 
CF AL he 3944 39Se# 3953 33961# 3962 S633 S644 
6816 6823 
d208 Secdx Sock = SBeSe © Bar? «B34 BBSBe 8889 
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— — 


- _ ee ee es eee 


He Be 








4“Slls 
TSTIS 0eS44e S153 S204%s 
TST16 026756 S4S4s 
vera? aees® . ; 
18180 A, 2299 S681 $7058 
TST4 3601 36688 
TSTS 3715 3722 37388 
TST 743 7788 
TST 288 7 38278 
TYPDS = 1078 
TYPE = 104401 3261 3277 3279 3281 3236 3338 3415S 3425S 34S 3383 $332 3878 36938 
3747 7 3971 3937 Woty 4014 4041 4093 414 420 4% 434 4436 
igo ren «eg Seeded sBedy «= evan Ss egas)= Bae? ssaeo Sede SS 
pide 46 pare «= Bard BSe8 S854 «S«BB89s«383SsPoze(i‘PSi«Ss P3848) PRPS 
7368 7580 A pe 7635 763 7649 7689 7670 7689 737 7743 748 77S2 
7 ; oan a4 44 a4 UA a a 7975 31038 9164 9165 9189 9170 
TYPERR 5140 fee3 g1eG8 
TYPOC = 104%4O0e 76 8104s 9185S 
TYPON = 104404 81068 
tas = OO00Di gee, ggg 38) «6a7te | OSL CGAR? = SS5R CSR CGaed Sues SHUN 
ae eM eS 
T.Be = 000002 21138 4088 107 4195 4214 4261 4278 4340 4359 4485 4S4g 4566 4715 
mIA CA mF eP8 353 200 pues 5088 S247 301 $320 S372 S391 Saas 
SS14 SSY S 5 yy l 
.B3 = OOO004 211s 6355 
l 001404 19848 
10 001406 19858 34S0 3464 3473 35758 3584 3846 S174 S415 5S30 6104 65447 6461 
Pane 6950 
100 001414 19888 6928 
TSO 001410 19868 
TSOO 0014%le 19878 
TS000 001416 19898 4652 5074 S233 6578 
TSO000 001420 19908 3471 3582 3982 Y74 |} 486 1 S7Sl S909 6115 
UFE = Oe uP sedge 35 361 
UNLO 336 438 3305* 691 6932# 
UNLOAD= 000007 11808 
UNS = 040000 12378 
2 = nt agi28 
VERIFY 4Ooo4 ous 3447 354Ss8 
‘ = Ol 12488 
E = 040000 l2lse 4322 4378 4530 4991 S113 S354 SS31 ; 
ve potas chaos Gane 43C4e “ % 4~Ga2¢ « Sts 3* 8331 
me B14 § 50078 qSBex  dascs UeSSE | aad a4dSE BESSY 831 , 
WORD 001506 2025s 
WRDATA= 000023 11868 40S8 4165 4453 4926 S271 S472 S6Y4S $779 S824 
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CZREIE.P11 10-JAN-78 09:43 CROSS REFERENCE TABLE -- USER SYMBOLS 
oo 004800 439 4034 4140 447 4597 S729 ssss 
| Sete 31 taeee 4316 4374 4S2e2 4985S S109 S348 SS2s 
' = 
, SAPT ates 1376 382 
| TA SHEERS 7429 Maid 
| yc 7400 74028 
TYl 73988 
SATY3 0414 7277 73998 
SATY4 04 72e9 74018 ‘a 
SAUTOB ll 18608 601le# 7627 7784 
1264 19308 300 3363 6070# 6072# 
SesoR? Sot se rap 
, 
SBELL 101 18618 7216 7249 7580 7777 
SCOW1 31270 19328 
$c 001272 19338 
$c yet 7294% 7304%* 7311 7320* 73258 
SCK 1400 76138 8111 
x AG Boas ee 18438 3188 3189 3197 3203 3204 3205 
CM3 18738 
SCmM4 = OO000E 18738 18748 18758 18768 18778 18788 18798 
Busse 7568 7649 777% 
e322 7634 7938 
Basar 76589 7 77788 
ERE bo T sae 12538 425 3489 3971 3972 SO44 S127 Si2s 7224 7249 7293 7328 7670 
7757 777 7838 9164 9169 9179 9192 9205S 
SOBL 040376 735e 7386 73948 
042632 78908 79S2 
Be Bests 33969 78498 
SO0WO0 1274 19348 
001276 19358 
S$ODWe 001300 19368 
001302 19378 
Bal Spe 19388 
1306 19398 
001310 19408 
SODW l3le 19418 
3012 7892 79388 
1220 186958 3248s 3311% 3680 S942 S943 
1266 19318 19 
SDOAGN 031610 S9S3 S362 S968s8 
040366 7355 73908 
ow 031600 1362 S96Y48 7244 
031546 3203 s3sse 
SENDMG SHtae $9357 S97e8 
isa¢ 5960 59718 
SEitmm  Belsar ters Gace SOM eG 787g ge 
SE 0314Se2 401 4YO4e 40934 4148 4201 44] 4346 4437 449 ] 4SS4 4605S 4806 481g 
uge2 S015 S307 S378 SS01 ssss $737 S8g33 SS368 9217 
Seger" 931819 ee" Seve" tows Boags gore 70s 
SERFLG 001103 1846s 834 7136 7165 167 7173% 7195 72l11# 7249 9214 
SERMAX OO011IS 18Ses 3206 7167 7190* 7195S 
| 
| 
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7219% 7220 7249 8915S 89e3 
7249 

3308 4634" “651% SOS6# $073 
6320 6330% 63450% 6360% 6364 
7429 7438% 74468 

7328 

7181 7183% 7194 

7651 7671 7784 

7e28 7249 9155 

7328 7767 7777 7838 

7002 7171% 71878 719¢e 7194 
6365 896 6899*% 7028 7171 
18908 32e5 6006 7186 72e6 
7440" 74448 

7418 

7421% 7433 7437% 

7328 

33898 3391 S508 SSe 36898 
939 41138 4115 44008 44402 
56078 5609 S686 8 688 

75268 

78768 


7 188% 


7272 


8939 


S23e2# 
7019%# 


7194 


SEQ J204 


8947 sgss 8963 $373 


S773 S868# S903% $939 
7022# 71892 7240 724e 
7239 


3733 37728 8 3774 38048 
48908 4892 Si94#e 5196 
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l 7479# 7483 7488 7491% 7502% 75288 
3 7148 7164 cs 7182 71918 
lel6b ae 322S% 374 3965S SINGs S9S0# 5359 S971 5978 7178 7195 
037040 ae 7060%# 70708 
4 3201 70538 7062 
7 7083 70598 
1 18828 7249 7328 7689 7760 7777 7835 7838 
1742 770e8 Bile 
SRDOS C= SRREEE U Bil 
N 7258 8113 
e 773998 #48114 
77188 
161 eoSbs — 
SREA = BHEREE LU 8117 
SAVRE 3234 8044s 8115 
S820 3026 79508 
SCOPE 7220 3195 714S8 
SETUP= 000137 31588 3130 3195 3197 3199 3201 3203 3204 3205S 3207 S947 6003 7146 
210 236 7244 7572 7577 7578 7608 7784 
STUP = 177777 31588 
SUPRS O43 3768 3970 73678 
SVLAD 037426 7156 718s8 
SVPC = 00024 13608 1365S 
SWR = 167400 10018 1016 1021 1022 1023 1024 102s 1026 1027 1028 1879 1880 1881 
3204 3205 3208 35 3405S 66 669 3739 3779 3828 008s 4124 
4409 M4 4912 S205 4YSS S626 S706 $9333 S949 S963 S969 S971 7137 
7138 71 7140 7141 147 7189 7161 7162 7165S 7166 7167 174 7175 
oie 7188 7191 7194 7201 7202 203 7204 Os 7214 72el 7233 7237 
S$SWREG 001232 19028 
SSWRMK= OO00000 1028 1 7141 7142 7163 
STESTN 001214 18938 3671% 7186% gg1sS 8922 8923 8931 89339 8947 g3ss 8963 973 as 
STIMES wW01174 18738 3204s 3354s 340S# 3566% 3669* 3739% 3779% 3828 4008 41 O4# 4M ae 46Q48 
491lex S2e0S*# S4SS# S6ce6% S706% SS40# S348 7174 7181 7184 194 
$TKB 001146 18668 7532 7553 7564 89 7617 ieied 
STKCNT 041102 75338 7SYRR 7578 759S* 7709 7711% 
STKINT O411le 3171 75488 7569 7630 
STKQGEN= O41111 75378 7603 7714 
STKQGIN O4%1104 75348 7S49% 7550 7601% 7602 760S* 
S$TKQGOU O41106 75358 7550% 7712 7713% 77 16% 
STKQSR Rat tae S36 7549 760 771 
$TKS 1144 186Se8 7532 7554% 758S* 7587 7593* 7615 7631% 7641 7653% 7673* 
STKSRV 041162 7551 75648 
TMPO 001160 18738 
STMP1 001162 18748 
STMPe 00116" 187Ss 
STMP3 OO11¢ 18768 
STMPY OO. J 18778 3309%* 3469 3488 3502 3S51le* 3580 3595 3598 3613# 3657 36962 3708 
4S8 S64 6102 6113 5 
STMPS 001172 18788 6306* 6360 6364 
STN = 000021 10028 1016 3331 3343 33548 3382 3389 340S# 3550 35668 3601 3659 36698 


3671 3073 3715 3722 3731 37398 3743 3772 377398 3786 3799 3804 3828s 
3930 3966 3997 4O08*e 4113 41248 44400 44O0Se 4610 46248 #4887 4890 4“9les 
5153 5194 Se0se S432 S4SS# 5607 S6e68 S631 5639 S681 S6S6 $7068 


DN - 


- — << << A me --- <- 


SoRefesotl  uo-Sanc7e 09:43 ”** “GROSS REFERENCE TA Se til eet pe 


T ll l cae 73 
TPFLG ll 18 5° 7328 
ll 731 73e8 
TRAP O433 3199 # 
TRAP2 Be 0918 8 
TRP = l 09Ss8 1048 810Ss 81068 81G78 81088 8109 81108 #égiii 8ll2e 81138 81148 #§£=81158 
81168 # =981178 81188 
04 4 808S 810e8 
TSTM 90 1 izeee 
TSTNM OO11 184Se@e 3672% S947 S380 7136 7163 718S% 7186 7191 7195 7213 7249 
| $TTYIN O42266 7727 7728 7740 7758 7772 77768 
T p04 72668 Bi b 8103 
TYPEC Olle 7236 3 73158 7316 7675 
TYPEX 0160 73el 323 73268 
TYPOC 748e8 #238 
040714 7481 74848 # #$$8106 
| ptvegs 406S4 74778 8108 
 §SUNI Ole2e 18968 Ge 3312 3682 3689 36939 3836 3851 4694 S096 Sisk 5179 Sess 
S4os S420 5S80 ss3s 6182 6201 6227 6269 6270 6271 6272 6398 6411 
6419 6427 Hae BY EY 6940 6955 
UNITM Ot 0 1 ance 
| at 
VECT1 001260 19288 
VECT 50 lebe2 9298 
XTST 0372 1508 
' $$GET4= 000000 S9638 
 $OFILL O41077 7473% 7482% 7492 75278 
SHOCAT= £42228 U 7147 7223 
; = 055500 pak 134Ss# 13308 S28 1360 1318 13628 13638 Te TA e 13738 4353" Arce 
egsee 4882 Spee" STI" | ST aq 71 ce sOzge 65033" SSous 5u4es «76330 Fee ERP 
75388 7ne 7777 77848 2828 78768 79388 89148 92e98 92308 9375 9600 9604 
9636 3966 9722 9730 g wt 97418 
-SASTA= 2eeeeE U 7399 7402 
. SX = 001000 13728 1377 
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4798 34 S161 S40e S577 6938 
EHECK 14938 3832 4086 4105 4193 42le 4eS9 4276 4338 4357 4391 mass 4510 san 4573 





$376 ae > es Oe eee ae Pe PR ec ee — 
Enbe : ings S325 
DRCLR 14618 3849 4632 S094 S177 S253 S4i8 5593 6353 
| 2 11528 
BRRSE «6 OTBRRS = 3386 guy 3507 3530 3604 
| 3631 3638 3639 3643 3796 3832 3857 
3853 it 3003 3788 
4109 411 4111 4128 4167 4184 4202 
W38) 4588 sSHQC 4541 4555 4563 
4369 4376 4 4 4413 4432 4470 
4474 4386 337 44 yy 4ed4 Ho 
4537 4S4 4550 4SS1 4S 4 4 
4637 46 4647 4648 4e68 4679 47 
4207 471 4717 4718 4 4 H771 
A 39 io 39 
ug7g gees e673 ¢636 
069 S070 50? SO S092 5102 5182 
185 S211 1 S22 S235 3 S273 
seh isc? BS BG at ae 
a a5 at aca 
gOS! Ae a3] sce 
a 3: ) ( - £848 att 
FEAR idise 3884 407 4097 4 4349 4S64 
: deep a786 ube 4 46 Para S291 e284 
SS3 ss S664 S? 
GETPRI 11528 
GETSWR 11528 6003 
a at a ae 
LOOP 13978 345 3570 3788 4O46 4152 4219 4304 4365 4440) 4S80 5336 S765 ssi2 
a a Tc oO cc 
NEGTST Lies 3343 3389 3550 3659 3731 377c 3204 3997 4113 4400 4610 4890 S194 S432 


OF FDIR 19558 cer? 4721 4773 
T 7 S214 


13908 
11Se8 

PUSH 1268 7340 7402 7404 7425S 7801 7994 B04S 
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KSReIE Pi 10-JAN-76 55:43 BROsS REFERENCE TABLE -- MACRO = ) 
455? 
2498 2565 3668 3738 4 8©6.3778 3827 4OO7 #4%+4123 4S “%23 £4911 S204 s¥s4 
t 6105 8106 8107 8199 =s Bll 8il2 6113 811% +6115 #6116 #8117 
e 3382 48=s- 3601 3715 3722 3743. -«3786)0—'_(ss37990'sis3930'i—sia38HE—C—‘“‘<‘i‘i‘ |Z OCSIS3) OS631 «S86 
Space 3343 3389 
ve oe ee em mF 
aay 7831 eC 8 Oe a1 OF 
a 
T N 11528 
r Cc Lees 59S8 
iJ 1S2s 
Nese iiase 3536 3700 S039 Sl22 6256 6994 7039 
TYPTXT 11528 
pare Lees 464 Huse 2229 S471 
| 17408 4521 ¥S84 
| WRHDR 15208 41 44 eG S7e8 S884 
Hee 1e3e8 1874 1875 1877 1878 
1Ses 3389 3550 3731 3772 3804 3997 4113 4400 4610 4890 5194 S432 
| f, 
Beth g0358 8105 8106 e109 B1ll = l@—ss«B19-—siBNH Ss BIS B16 BL? 
: IP 13e8 3382 3601 3722 3743 3786 3799 (3930 463966 «4«=4887)—S—é«SS1S39—«CS'S S639 
.EQUAT 10018 1042 
| ‘ISET ipois 31 
; i 10018 igs 
: 100i8 10298 
; uf 10018 1 
‘Sheth «loos ©1367 
.SAPTY 10018 1386 
. Te 10018 1339 
; 10018 ida 
? 10018 7838 
FR IBIS 5 
BS ee: 
i « a 
|.SREAD 10018 7529 
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